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um programa envolvente para seu MS): 

A Disnrosoft Dansnu nos mfnimos r!nfiilht>s 



A Disprosoft ponsou nos mfnimos detalhes 
para langaro mnxirno om programas para 
MSX, Sao inuni eras opgoes onvolventes em 
jof?os animados e intcligentes. programas com 
aplicagoes comerciais, profissionais, 
oducacionnis e ntilitarias. Programas infkiitos, 
om portugues, com perfeita entrada om 
seu MSX. garantia e confrole de qunlidade. 
MSX da Disprosofl: nas melhores lojos, o 
programa ([tie vai envolver vocfi. 
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N esta edigao de junho, MICRO SISTE- 
MAS traz uma interessante reportagem 
sobre o JapSo e seus projetos de even- 
fade tecnologia. A 1 6m disto, procuramos re- 
flet ir sobre as caracteristicas culturais deste 
povo, quo possibilitaram a reviravolta: de um 
pais devastado pela guerra a uma das maiores 
potSncias da atualidade, admirada pelos povos 
ocidentais que deveriam meditar sobre os 
ensinamentos que sua sabedoria milerar nos 
impBe. 

No Japao, pais capitalista que guarda pro- 
fundos valores humanitirios, o espirito nacio- 
nalista se traduz em trabalho de equipe; a 
ordem 6 unir esforpos. Assim 6 que emprosas 
concorrentes conseguem juntar-se em proje- 
tos comuns de pesquisa, incentivadas por um 
Estado participate, e avangar a ponto do 
pOr em risco at6 a sdiida hegemonia tecnold- 
gica dos EUA. Problemas existem, e o desen- 
volvimento de software 6 o mais grave deles 
— o que seri abordado em edigSo futura. No 
entanto, com uniSo e trabalho, os japoneses 
estSo conseguindo superar as dificuldades im- 
postas por sua lingua. 

Para nds, esta deve ser uma grande lifSo, 
justo no momento em que fala-se em organl- 
zar e legislar o mercado brasileiro de progra- 
mas para computadores. Nesta hora, tanto 
podem ser tomadas medidas priticas e realis- 
tas como podem criar-se mais entraves e 
rituais burocriticos que em nada ajudarao 
ao setor e ao usuirio. Ao contririo, coisas 
como registros obrigatdrios e restrigdes a 
pacotes consagrados como padrdes interne- 
cionais constituem perda de dinSmica, atraso 
garantido e controle policial, quando o tema 
comercializagSo e uso de software requer mais 
6 culture e discernimento de nossos usuilrios, 
com o devido incentivo ds universidades e 
empresas nacionais que trabalhem no desen- 
volvimento de solugBes prdprias. 

O que 6 lamentdvel, contudo, 6 que justo 
agora os que deveriam ester direcionando uma 
discussSo apropriada da questao parecem 
nSo se en tender. O MCT diz ter conclufdos 
documentos e propostas de lei que a SEI 
demonstra ignorar. E a Assespro — linica end- 
dade representativa das software-houses e 
bureaux — ao invds de se movimentar para 
congregar tambdm os empresdrios das micro 
soft-houses, representantes de best-sellers es- 
trangeiros, etc, de modo a tornar a discussao 
mais amp la, perde -se em briguinhas de poder 
e provocagBes bairristas, que bem demons- 
tram a total incapacidade que temos de con- 
tornar as desavengas particulares em pro! dos 
interesses nacionais. Tal atitude nacionalista 
(nSo confundir com demagogial, justamente 
o que nos falta, 6 o que os japoneses tSm de 
sobra. E que os tern levado a um sucesso 
inegdvel em variados aspectos. 
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O sorteado deste mes, que recebera uma 
assinatura anual da revista MICRO 
SISTEMAS, k Glaciene Pereira Tavares, 
de Maceio-AL. 



DUVIDAS SOBRE DGT-1000 






Possuo um equipamenio DGT-1000 com 48 
Kb e um drive, tenho algumas duvidas e gostaria 
de esclarece-ias. Gostaria que me informassem 
se existe um manual que explique os comandos 
do DIG- DOS, pois o manual que o acompanha 
nao demonstra nem a metade dos comandos 
apresentados pelo comando LIB do DIG-DOS. 
TambAm desejo saber se hi algum outro sistema 
operacional que rode no DGT (diferente do 
CP/Me do DIG-DOS). 

Pretendo adquirir programas em linguagem 
de mAquina nos Estados Unidos e gostaria de 
saber se os programas para o TRS-80 modelo 
I rodam perfeitamente no DGT e se o sistema 
operacional do TRS-DOS A compativel com o 
DIG-DOS. Quero saber ainda qual avelocidade 
de transference para a fita no TRS e se ela 6 
compativel com a velocidade de transference 
do DGT. 

Por ultimo, desejo saber quais os sistemas 
operacionais compati'veis com o DIG-DOS. 
Alessandro Zimmer 
Rio de Janeiro - RJ. 

Prezado Alessandro, con forme fazemos 
habitualmente, enviamos sua carta a Digitus e 
recebemos a seguinte resposta: 

"Com reiagao ao manual do DIG-DOS 
1 00, informamos que ha disponi'vel um manual 
(em inglds) do NEW- DOS, compativel com o 
DIG-DOS 100 utilizado em seu microcompu- 
tador. At r avis dele, voce descobrird que o DIG- 
DOS 6 um Sistema Operacional com muitos 
recursos, e que por isso foi selecionado pela 
Digitus para ser implementado no DGT- 100/ 
1000. Na realidade dispomos de outro Sistema 
Operacional, o DIG-DOS 10, compativel com 
o TRS-DOS do TRS-80 americano, mas e/e 
d muito inferior em recursos e capacidade ao 
DIG-DOS 100. 

Para que os programas adquiridos nos EUA 
rodem no DGT -100 /1000, eles devem ser ba- 
seados no NEW-DOS 2.0. Entretanto. deve-se 
observar que programas em linguagem de md- 
quina com acesso direto aos drives (independent 
te do suporte do sistemal, nao rodam, pois o 
TRS -80 1 tern drives de densidade simples, e o 
DGT- 100/1000 funciona com drives de densi- 
dade dupta, e o DIG- DOS foi alterado para isto. 
Portanto, um acesso ao disco que nao seja 
atravds do Sistema Operacional nao funciona- 
rd. Tambdm deverao ser evitados programas 
que acessam a RS-232C, pois no DGT -100/ 
1000 ela foi bem melhorada em relapao a 
original, mas precedeu-se a compatibilidade 
em alguns pontos. No restante, programas no 
NEW-DOS II em BASIC que nao utilizam roti- 
nas de mdquina funcionarao bem em seu micro. 

O seu DGT- WOO pode ler e gravar fitas cas- 
sete nas velocidades de 2000 ou 500 bauds, 
seleciondvel por software (vide manual de BA- 
SIC e manual de operapao). Como nao existe a 
velocidade de 2000 bauds nos TRS-80 ameri- 
canos, voce poderd adquirir fitas na velocidade 
de 500 bauds, que poderao ser lidas pelo seu 
micro. 

Informamos finalmente que voed poderd 
remeter para a Digitus seu nome e enderepo pa- 
ra receber o Informativo Digitus, que enviamos 
a nossos usudrios cadastrados com informapoes 
interessantes sobre nossa linha de produtos. 
Para esclarecer qualquer duvida. bem como 



solicitor manuais, voce poderd procurer, no Rio 
de Janeiro, nossa filial localizada a Rua Barata 
Ribeiro. 391, sala 404, tel.: (021) 257 2960, 
Copacabana. 

Marcos Birchal de Mora 
Diretor Comercial — Digitus. 



SOS AOS LEITORES 

Preciso de uma prancheta grafica e outros 
softwares do Macintosh e gostaria que possiveis 
fornecedores entrassem em contato comigo. 
Quero manter contato com usudrios deste mi- 
cro, para troca de correspondence e programas 
e desejo ainda o enderepo do Clube Macintosh, 
em Brasilia. 

Sou fanAtico por neuro-oftalmologia e 
preciso contatar colegas que estejam procuran- 
do, como eu, desenvolver programas nessa Area. 
Meu enderepo A Prapa Wenceslau Braz, 100, 
CEP 37.500. 

Antonio N. Gonpalves (ItajubA - MG). 



MS AGRADECE 






Simplesmente excelente o artigo do Pierre 
Lavelle, "C6pia de Programas: Ataque". 36 la- 
mentei muito nao possuir um TRS-80, para 
usar as dicas do LAo contra os "Piratas de Pro- 
gramas". SerA que ele poderia adaptA-las para o 
CP 400, TRS-80 Color e compati'veis? 

Tenho um CP 400 e gostaria de trocar idAias 
com usuArios desta linha. As correspondences 
podem ser enviadas para a Rua Areolino de 
Abreu, 1349. 5 9 andar, CEP 64000. 

Francisco Soares da Silva 
Teresina - Piaui. 



CORRESPOND!! NCI AS gH* 

Sou assinante desta conceituada revista e gos- 
taria de parabenizA-los pelo curso de FORTH, 
de Antonio Costa Pereira. 

Estou organizando um clube de usuArios de 
I6gica Sinclair e MSX; os interessados podem 
trocar informapoes comigo atravAs do seguinte 
enderepo: Alameda das CrisandAlias, 532, Ci- 
dade Jardim, CEP 13560. 

Joao Paulo Cavalheiro (Sao Carlos - SP). 



Estou fundando um clube para troca de pro- 
gramas entre usuArios de ZX81; TRS-80; 
Apple; ZX Spectrum; TRS-Color; MSX e 
Sharp (micros PC- 1500). Para tornar-se sbcio, 
envie nome e enderepo completos; data de nas- 
cimento; telefone; micro que possui e um pro- 
grama para o micro em questao (listagem). 

Para cada programa enviado, vocA terA di- 
reito a outro (a sua escolha). Enviaremos, assim, 
ap6s o recebimento de sua carta, uma lista de 
programas sempre atualizada, para que voce 
indique qual deseja obter. Cartas para a Av. 
Dionisio LothArio Chassot, 463, CEP 99490. 
Wilson Afonso (Tapera - RS). 



N. R.: Em virtude da grande quantidade de 
cartas que temos recebido, passaremos. a 
partir deste mes, a sortear a assinatura entre 
todos os leitores que nos escreveram, e nao 
apenas entre aqueles que participaram desta 
Sepao. 

Envie sua correspondence para: ATI - AnAlise, 
Teleprocessamento e InformAtica Editora Ltda., 
Av. Presidente Wilson, 165/gr. 1210, Centro, 
Rio de Janeiro/ RJ. CEP 20030, Sepao Cartas/ 
Redapao MICRO SISTEMAS. 
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O que faz uma empresa crescer 
sao grandes ideias. 
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At6 hoje, as empresas dispu- 
nham de duas opgoes para sua 
informatizagao: utilizar grandes 
computadores, o que significa 
grandes investimentos e a ga- 
rantia de solugdes completas e 
duradouras, ou Microcomputa- 
dores, de custos menores, mas 
cujas limitagetes de capacidade 
e crescimento comprometem 
o resultado final, causando 
frustragoes. 

Agora isto 6 passado com o 
langamento do Supermicro- 
computador M1001 -Slim, a 
grande id6ia que vai revolucio- 
nar a automagdo das empresas 
de pequeno e m6dio porie e au- 
xiliar na descentralizagao de 
servigos das grandes 
empresas. 

0 MIOOI-Slim, de 16/32 Bits 
e capacidade multiusuario/mul- 
titarefa, foi desenvolvido para 
operar com ate 5 terminals. Ele 
e o mais novo membra da fami- 
liade Supermicros Ml 001 da 
Medidata, o que Ihe garante 
uma completa biblioteca de 
aplicativos administrativos e 
gerenciais amplamente testa- 
aos e recursos ineditos como 
o Tele-Su porte. 

E por ser da Medidata, uma 
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empresa gue acumula 10 anos 
de experiencia no fornecimento 
de solugoes de informatica, sua 
empresa tern a certeza de con- 
tar com servigos de manuten- 
gao e suporte totais. recon heci- 
dos como os de melhor rn'vel da 
industria nacional, sem que te- 
nha que pagar a mais por isso. 
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E, na medida que a sua em- 
presa cresce, voce conta com 
opcoes de expansSo, com apro- 
veitamento dos seus investi- 
mentos em software e periferi- 
cos, gragas & compatibilidade 
do MIOOI-Slim com os demais 
computadores da Medidata o 
Micro M-XTtamb6m compati- 
vel com O IBM-PC/XT, o Super- 
micro M1001, paraat6 16 terminals 
e os Minicomputadores M2001 e 
M3001 para at6 64 terminals. 

Connega o Supermicro 
MIOOI-Slim. Mais uma grande 
ideia da Medidata 



""is; medidata 

••• a logica sob medida 



Rio (021)542-3737 

Sao Paulo (011) 288-3522, ate 30/05. 

A partirde 1/06, 523-0960 

Campinas (0192)31-0903 

B. Horizonte (031) 226-5719 e 226-5045 

Brasilia (061)225-6745 

Salvador (071)233-1512 

P. Alegre (0512)42-8530 



SUPERMICRO Ml 001 SLIM DA MEDIDATA. 



Oliveira. Muriel 






Esta e uma boa hora para se aprender a armazenar e recuperar 
telas em alta resolugao no TK90X com algumas rotinas em Assembler. 



Super telas 



Nelson N. S. Santos 



C om duas rotinas simples e pequenas em linguagem escolhemos 57088 como im'cio do nosso arquivo (223 x 256 

de mdquina, serd possfvel produzir efeitos de tela = 57088). BC deve conter o mimero de bytes a serem transfe- 

impossiveis de serem obtidos em BASIC. ridos (fdcil de guardar): BC * Byte Counter). Este mimero 6 24 

A primeira das rotinas arquiva uma tela completa x 32 x 8 (tela de alta resolugSo) + 24 x 32 (atributos de tela) 

em alta resolu 9 do (incluindo os atributos de cor), e a segunda a = 24 x 32 x 9 = 27 x 256 = 6912. 

recupera, reimprimindo-a de maneira aparentemente instanta- LDIR 6 uma das mais poderosas instru?5es do Z80. Ela 
nea. realiza LD (DE), (HL), seguido de INC HL, INC DE e DEC BC; 

Para arquivar a tela de alta resolu^So, sfo necessdrios quase e repete este ciclo atd que BC seja zero. 

7 Kb. Assim sendo, se voce tern um TK90X de 16 Kb de RAM, A rotina de recupera 9 So da tela 6 quase igual. Veja: 
vSo lhe sobrar apenas 2 Kb para o programa BASIC, pois 14 

Kb de sua RAM serdo ocupados pelos arquivos de tela - o LD HL - 57088 21 00 df 33 0 223 

usual e o seu novo arquivo. Se seu TK90X tern 48 Kb, entdondo ld de, 16384 110040 17 0 64 

hd grandes problemas, pois vdo lhe sobrar 34 Kb para seu pro- ld bc, 69 12 01 00 ib 10 27 

grama BASIC. ldir ed bo 237 176 

Super telas estd escrito para micros com 48 Kb de RAM. ret C9 201 

Se voce tern apenas 16 Kb, consulte a lista de alteragQes no 

final desta matdria. Observe como apenas foram invertidos os endere?os de par- 

Come 9 aremos o programa BASIC com CLEAR 56999, para tida e de destino. 
reservar a Area de endere 90 57000 em diante para a rotina em Para colocar estas rotinas na memdria do computador, digi- 
si e para o arquivo. te: 

A rotina de armazenamento da tela i: 

10 CLEAR 56999 
20 FOR f - 57000 TO 57023 
30 READ a: POKE f, a 
40 NEXT f 

50 DATA 33,0,64,17,0,223,1,0,27,237,176,201,33,0, 
223,17,0,64,1,0,27,237,176,201 

Vamos entender. Para usar LDIR, que e uma instru 9 ao de Rode o programa. Nada observdvel acontece, mas o c6digo 
transference de blocos, HL deve conter o endere 90 de partida. de mdquina esta na memoria do micro. 

Este 6 16384, o inicio do arquivo de tela do micro. DE deve Para verificar, imprima qualquer coisa na tela e digite o 
conter o endere 90 de destino (impossivel esquecer: DEstino); comando direto RAND USR 57000. Limpe a tela e digite 



LD HL, 16384 


21 


00 


40 


33 


0 


64 


LD DE, 57088 


11 


00 


DF 


17 


0 


223 


LD BC, 6912 


01 


00 


IB 


1 


0 


27 


LDIR 


ED 


B0 




237 


176 


RET 


C9 






201 
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RAND USR 57012. Voce deve ver a sua tela anterior instan- 
taneamente de volta. 

Isto pode ter varias aplica95es. Uma delas pode ser armaze- 
nar a tela de um jogo quando for necessario interromper para 
uma tela de help ou para um menu (bastante comum em 
adventures). Outra possibilidade e movimentar algo atraves de 
um fundo detalhado, sem alterar este fundo. A ideia e a se- 
guinte: crie o fundo, armazene-o, imprima o seu “algo”, recu- 
pere a tela de fundo (apagando o “algo”), imprima o “algo” na 
nova posi93o, e assim por diante. O efeito e veloz e literalmen- 
te impossivel de ser obtido em BASIC. Como ilustra 9 §o, com- 
plemente o nosso programa: 

60 BORDER 6: PAPER 0: CLS 

70 LET r - 1 

80 FOR f = 1 TO 181 STEP 5 

90 CIRCLE INK (RND * 6) + 1; f, r, r: LET r = r + 2 
100 NEXT f 

As linhas anteriores criam um fundo de circulos coloridos, 
produzindo a ilusao de um cone em terceira dimensao. 

110 RAND USR 57000 

Isto armazena a figura criada. 

120 PAUSE 90: CLS: PAUSE 90 

Dd uma pausa, limpa a tela, e a mantdm limpa por alguns 
instantes. 



O loop anterior recupera a tela com o cone, imprime 
TK90X, recupera a tela (apagando os caracteres), imprime 
TK90X mais acima e mais a direita etc. 

A ferramenta que apresentamos podera incrementar bastan- 
te seus programas. 

alteraqOes PARA 16 kb de ram 

Linha 10 - CLEAR 24999 
Linha 20 - FOR f = 25000 TO 25023 
Linha 50-0 mimero 223 deve ser trocado por 98, e o ende- 
re 90 de inicio do nosso arquivo de tela passa a 
ser 25088 (98 x 256 = 25088) 

A rotina de armazenamento deve ser chamada por RAND 
USR 25000, e a de recuperar por RAND USR 25012. 

Linha 1 10 - RAND USR 25000 
Linha 120 - RAND USR 25012 



130 FOR f - 0 TO 19 
140 RAND USR 57012 

150 PRINT AT 20-f, 6 + f; PAPER 6; INK 0; "TK90X" 
160 NEXT f 



Nelson N. S. Santos desempenha atualmente a fun;ao de Editor na edi- 
tora Campus. UsuArio da I inha Sinclair, elejt trabalhou como Consultor 
TAcnico na Area de linguegens, sendo tambAm autor do livro "AlAm 
do BASIC ", publicado pel a Campus. 



£ melhor voce entrar na linha 

Software Nasajon compatfvel com a linha IBM-PC. 



Chegaram os exclusivos < 
sistemas da Nasajon. 

Folha de Pagamento, ^ 

Contas a Pagar / 

O sistema de 

Contabilidade , por exemplo^j^ 
faz o trabalho de todo o mes I 
em apenas 2 boras. Permite 1 
o cadastramento de historicos *: V 
padronizados e de piano de - $ 

contas com ate 5 ntveis. 



ftno/ojon 

fc i/i/temo / 1 5 anos de 
Tecnologia em Software 



Av. Rio Branco, 45 Gr 1311 - RJ 
Tels.: (021) 263-1241 e 233-0615 



Emite didrio, razdo , 
;v balancete , balango, 

demonstragao de lucros 
If* e prejuizos acumulados, alem 
■ de listagem por centro de custo 
\ e extrato de contas. 

E ou nao e melhor voce entrar 
) na nova linha ? 

- Cada sistema custa apenas 
Cz$ 9-300 , incluidas ai a alta 
\ ' tecnologia e toda a tradigao 
da Nasajon. 



Breve Filial em S. Paulo: 

R. Xavier de Toledo, 161 - conj. 106 



Luciano Nilo de Andrade 



Avangard, a nova estrela 



A Fidelity Electronics, empresa 
norte-americana especializada 
na fabrica^So de micros para 
jogar xadrez, acaba de anunciar a co- 
mercializa?3o do seu novo micro, o 
Avangard. Mais potente e sofisticado que 
seus aparelhos anteriores, estd sendo 
oferecido a US$ 800. 

De tamanho igual e acabamento ex- 
terno primoroso, como o dos modelos 
Elite por ela fabricados e jd descritos 
nesta coluna, e a principal novidade para 
este infcio de ano. 

Sua principal inova?ao e a de vir com 
dois rel6gios embutidos na margem do 
tabuleiro paralelamente d coluna do TR. 
Isto torna possfvel a dois jogadores se 
defrontarem normalmente, atuando o 
micro como juiz da partida a flm de que 
n2o sejam feitas jogadas ilegais. Como 
ele e sensorizado, os jogadores nSo pre- 
cisam aciond-lo ao fim de cada jogada. 

Assim, a contagem do tempo e feita 
automaticamente ap6s a coloca93o da 
pe?a em sua casa, exigindo, ainda, manu- 
seio educado das pe?as, penalizando os 
jogadores estabanados. 

A potencia do novo aparelho e de 5 
Megahertz, um Mega a mais que o seu 
antecessor, o Elite AS4. 

O rating anunciado do Avangard e de 
2.203! Contudo, a USCF (Federa?2o 
Americana de Xadrez) atribuiu-lhe, pro- 
visoriamente, o rating de 2.173, depois 
da participate deste micro em recente 
campeonato norte-americano aberto. Es- 
te e um resultado recorde porque corres- 
ponde ao rating de mestre da FIDE, ulti- 
mo degrau para o acesso a mestre inter- 
nacional. 



KAROL WOJTILA 




1 - As brancas jogam e dao 
mate em duas jogadas. 




KAROL WOJTILA 



KAROL WOJTILA 



2 - As brancas jogam e ddo 3 - As brancas jogam e dao 
mate em duas jogadas. mate em tr£s jogadas. 
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Na primeira prova em que competiu 
com outros micros, o Avangard venceu. 
Isto ocorreu em Mobile, estado de Ala- 
bama, EUA, em julho de 1985, quando 
da realiza93o do Computer Chess Cham- 
pionship. 

A classifica 92 o final foi a seguinte: 
CampeSo, Avangard com 5,5 pts.; 2?) 
Bebe, 4,5; 3?/4?) Novag Y e Novag X 
com 4,0; 59/89) Belle, Vangard Fideli- 
ty, Mefisto Modular e Fidelite Elite XA 
com 3,5; 99/119) Super Constellation 
X, Turbo Star X e Mefisto Modular S 
com 3,0 pts. Ao todo, haviam dezoito 
concorrentes. 



25/04/1960), problemista polonfis reco- 
nhecido mundialmente por seus mais de 
70 premios conquistados com proble- 
mas de mate em duas ou trSs jogadas. 
Este intelectual encontrou lenitivo no 
xadrez para sua prolongada enfermidade 
6ssea, que o deixou quase parali'tico. 

A seguir, apresentamos tres proble- 
mas compostos por Sua Santidade no 
tempo de seminarista. 

Solufoes: 

■aiEui dx d £ Dxj+090 - j io= a8d • i - e 

IJ./.G ’I - l 
IQ20 I - l 



O enxadrista Joao Paulo 11 



O Papa JoSo Paulo II, o Jo2o de Deus, 
como carinhosamente o chamaram por 
ocasiSo de sua visita ao Brasil, ja teve 
sua aten$5o voltada para o jogo de xa- 
drez. 

Era ent3o estudante de teologia e cha- 
mava-se Karol Wojtila quando se iniciou 
na arte de compor problemas. Seu ini- 
ciador foi Marian Wrobel (01/01/1907 a 



Enxadrista experiente, Luciano Niio de An- 
drade ja escreveu para os jornais "Correio 
da ManbS", "Data News", "Clltima Hora" e 
para a revista "Fatos & Fotos". Luciano 4eco- 
nomista, e trabalha atuaimente no Ministirio 
da Fazenda, no Rio de Janeiro. As opiniSes e 
comentdrios de Luciano Nilo de Andrade, 
bem como as ultimas novidades do xadrez jo- 
gado por computadores, estarSo sempre pre- 
sentes em MICRO SISTEMAS. 
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MICRO SISTEMAS. junho/86 
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MANUAIS ORIGINAIS 



JOGOS CONSAGRAOOS - C ZS 130.00 

A/007 AKALA8ETH - Fantiitlc* axntyr* *nim*<J*. 

AJ051 APPLE F ROGGE R - UmJojo par. tatttr itUtxot. 

AJ009 Auction - A.iimuo da tii.aiFgi* t ap*o I84K). 

AX30 ASTEROIDS Oait.ua at titarAicMt no etPKO. 

A/166 ATARI PACMAN - CUuun do ILoaranv. 

AX?) AUTO BAKU - Um|c>) I WM 0 * *(Jo intanta. 

AX78 BANDITS Ban/dii queer rcubl lo. 

AX92 BATTLE FOR NORMANDY - OtMobarqu* na Norman* i* 
AJI 01 BIRTH OF THE PHOENIX - Guana-rota Uuai am luU 
AJ054 BOLO - Ol lenqxtdeilruoFoo in.rn. 95 . 

A JO 29 BUO ATTACK - B.lliwmo |Ojo .ip.c al Nlopnal 
AJOCO CARTE LS & CUTHROATS - SimuU^JorrviwiJl 
AJ1I7 CASTLE WOLFENSTEIN A. cow..* to, cast, o nai.sta — • 
AX89 CASS I NO - CtUmo compNto iv>« aua d.,« » to. 

AJ 0 I 8 CHECKERS - Fanttllico jogo Ot damn. 

AJOCO CONGLOMERATE COLLIDE S.muU(*> *m|jrta*f •*! 

AJ047 CONGO Conduri a tanoa rvo tut turbulanto. 

AJ090 CONGO BONGO A.antu.a liHSmtotMXttl na A fix*. 

Ajoes COPTS A ROBBERS P*.Hjy>(J5 no labumto. 

AJ 0 SJ DEADLINE Intrant. axntg.a pol-cu! 

AJ024 Ot FENDER Ottlrua at «*..» inmugit Qo.iwcM 
AJ0I4 DONKEY KONG - Um cUttHD do ll.paramo 
AJ 0 SB DRAGON S (YE - Av.ntura com daunKot ammadot. 

AJOti’j EGGS IT - Um tfnar t«v> tuque com o.oi 
A JO 90 EPIDEMIC - Lutt contra a luinil «p«Mnv*. 

AJI02 ESCAPE FROM RUGSTEIN ><,• di p.<Ua. 

AJ04B EVOLUTION Umjogo pat a quern um neoot lam 
AJ0T9 FACE MAKER -Conn.ua roit,i .rwrudoe 
AJQ32 FAMILY ROBINSON Aiwda ot Robmion no itnihWa. 
AJI0S FIFTY MISSION CRUSH - Pitot, um UuDvOno 
AJ 044 FLY WARS Umiojo <M agio iiunttriupM. 

AX49 FOOTBALL - Jo*, a Iwtebol conn, o mroo 
AX) / GAMMON - E.d.iM. ,o<io Oa aawSo t ..p^it 
AJ09S GERMANY 1965 - SmulKio d. *u.«. nt Ai amann, 

A JO 20 OOHOON Jw.WMl l mld«i.«e n 
AXI52 HAOIION - J»JO tliUiul tm 3dim.nkJ,t 
A>045 HIGH ORBIT FaniiitK. MiMtii cr.tlx. 

A/131 HITCHIKER S GALAXY - FIc^Jo aimtxttwnf. 

A/193 HOUSE OF USHER - f,U«.v.llviu a*n,*a mnunada 
A/148 HOUSKATTACK Sin Up4) • v<~ a ». <MI« 

AJ 0 I 2 I O SILVER 0(4 act lantaimat 

AX159 KAMIKAZE - D.I.HU. l.u do .1*** >atn+.n 

AJO «2 LES TIGRIS LA NCIOI l.i .(F|<. n. II go.... 

A/142 LOOt RUNNER Um* Urja aluonanta. 

AJ0&8 LUNAR LIEPERS lU.M* um ul,*.r*..io "» L-*. 

AJO /2 MANNOR P»«Mi>» n» <-iUita (iiwik* IHRCil 
AJ039 MARAUDER lnv«>4 o •nq u «Mm* ptanaia aa pvdat. 



AJ083 MORLOC S TOWER - Incid *^n<u<. id*#* 
AJ022 MS.PAC MAN - Um dlu cod. M bM* 

AJ M MUROI R BY i hi OOZI N S >P* r..nt«<. poNc-i 
AJ0I9 NIGHT MISSION M.Mla da atiritata am HRG. 

AJO 35 NORAO- Adlo*m Vw *«.m,ci**.. 

AJOJT ODISSI Y - OtKutx. o W M>«iA. tr,, latum 
AJ078 OLO IHONSIOtS - Urn* eata’enta BHPN >u.>l 
AJ094 OPERATION APOCALYPSE - P«l«OM mlMBo d* II GtHOi. 
A JO/I PANICO Imimlm *t *>*nA*t itwumM 
AJOOB PINBALL CONSTRUCTOR - Ci* Mu H«*<*m* (Joy). 
A/015 PITFALL II A»nlu.an,% ea«tn»m.ua>um*. 

AJIOO RAILS WIST Co<W<u* • l.oo.a nd VHho Oaata 
AJ013 RENOE VOU2 P<.p*-. m anuat .mOtblw 
A JO 32 RINGSOF SATURN Iil<*t«90HOMH<. 

AJ026 ROACH HOTEL (nlf.ni* *t Im.*im dni. BOW. 

AJOIO SARGON XMt.i d. nft.1 mi.io.nt. 

A/025 SHUFFLIRBOAHO >Joo d. boett*. 

A/006 SINGLE'S NIGHT I .d.nl. ,>,» Oa <»i.. 

A/100 SKY FOX - Pilot* gm* mc.A.1 n*v* (IOVMNft-6«K) 

A/141 SNAKE BYTE Ut* tu. ml.l-Mn*** pH* H. d****l 
AW3I SNOOKER - Uml6piag*nloMd*i>*d*l*<. 

AJOJS SOFT PORN AOVINTURf - Oivnndi * tuJ.com. 

A/184 SPACE VIKINGS - A<*t • Dairy) no aaoaco. 

AJ023 SPECTRE Fu,« <1. Sp*<l<* pHo IMMmto. 

A/104 SPY X SPY OiH)vl».n.f.otpHMn*g.n.d.MA0 
AJ050 STAR MAZE F.nilti.u ...ntui* .kuc .i 
AJ 08B STAR SHIP COMANDER - 0u*«* mi«N*». 

AJI03 STAHCROSS - Ai.ntg/. d* lk(A. M'.lH. 

AJ08J STELLAR TREK - Sup*< MfOo «M OvH<* n*l EltnlM. 
AJI04 TEMPLE OF APSHAI II Norttm.nig.., 

AJ080 THE CAVES OF OLYMPUS - Awtlgr* luiutiit* *m MHO 
AJ06/ THE STANDING STONES - A«*n«g>* iol.M<C4di. 

A JO 36 THREE MILE ISLAND - Conl.ol* gm. Ut.nl At6m«a 
AJO JO THRESHOLD Empolg*nt*b*t*»v*no*H>4co. 

A JO 34 TRACK ATTACK - ("X-IWII 1890 Oad^o 
AJOT6 TUBE WAY G van a no *tp*(o ttijim.m.on*i 
A JOT I TUBE WAY II • Gu*«. Mmatina 
AJ033 U BOAT FtK.lFj i rml.u< com •gftma.mo. 

AJ08T WAR IN RUSSIA - C*mo*n*. d. Rg«-. na II Og«r*. 

AJ065 WAY OUT - Soldi, c*d> IMMimio u,Oman,. 0 na» 

AJ040 2AXXON - Coiridt* n* pl*t*loim* ai'.a>at 
AJ0T4 ZORK I (UNDE R EUPIREI - ln«ld ...ntgr*, 

A/J64 20RK 2 (THE WIZARD! Comixt* o M*0O 
A J0T5 ZORK 3 ITHE MASTE Rl - Thc-0 Oa '..log.* 

APLICATIVOS / UTILITARIOS - S*mo< - CZt 460,00 

AA064 AUTOCODE - GataOot Oa aolmiNot p ... DBASE II 
AF006 BASIC BO (CP/MI - Co **1,80. BASIC 
AAOS9 BUSINESS GRAPHICS - Cata G<4Nco* troancto inwnoi 
OAKIM PROGRAMMER -U,.liU.K., ph. dxmp^i. 
AACM2 OATASTAR (CP/M) - GhhiCMot d* banco d* d*do. 
AAOW DO MASTER 32 - Nov* tarOodo 08 MASTER 
AF010 OB PLUS - C'ni fica * r*'<ym*t* OBF *m DBASE II. 

AF01I DUTIL - Ut<MI«.o d* p.OO<(m*cJo *m OBASF II 

AF0I3 FORTH - Comp.'*do< FORtVl 

A'OI T GRAFORTH Comp.,,, d. Oaaar***. 

Z™ tiff f&JKas&K! *“■ 

AAOTI MAGIC WINOOW II - CUt.do p-ocmito. d. u. 

AFOU MERLIN - EO.O. *«mU.. <64kb). 

AA058 QUICKCOOE 2 0 G..*dD. Oa ptovamaado DBASE II. 
AA043 REPORSTAR (CP/MJ - Ghh»o< ,«au J.m. OATASTAR 
S!*'®" ' mod. lot «m*nc /«m. 
AA025 SPREADSHEET - PUn.m* O .oin*l d> SUPERVISICALC 
AA957 STOCK PORTFOLIO - Mod«n<u.mo conitdla da acta% 
AA055 SUPE RCALC (CP/MI - PIhi.ou da rtkuiet. 

AA0I4 TAKE 1 - F.mJit.co qataOot Oa an.macGat. 

THE CASHIER - P.oy*m* px* 9H*ncom*mo Oa loto. 
AA038 THE DIC -TIO MARY - DwmNm • «on*!.dH»r 
AA030 THE INCREDIBLE JACK Ctllo .mp.tu.UI. 

AA072 TIME MANAGER E.ca'.m* aganda 
AA068 VISICALC - CUl.<* pi.ndh* a>al'6n<a 
AA0C6 VISICHEDULE - Clio d* *l..<dK)« 

AA070 VISIOEX - CHiLco banco da d*do*. 

AAC67 VISIFILE - Binco dadai •Hi/Mo com V..<*ic/V^plo«. 
AA069 VISlPLOT/VlSI TREND - G.*I<C. • 

AA065 VISITS RM - Tranim.iUo d* <Ndo«. 

AA024 WRITE ON - Olinvo p-oemde d* t*«'0*. 
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APLICATIVOS / UTILITARIOS - Conxyado. - CZS 350,00 

AA049 30 GRAPHICS SYSTCU - Oaaan^hn daaat+tn 
AAOI I ALPHA PLOT - OMhcd •*>*»* da 
AA072 APPLE MECHANIC - CUn<o BH*dH da , 

AA027 APPLE MUSIC THEORY - Curio compNio 
AA004 APPLE PLOT - OlPCORrM). Oa 9 . II 
AA020 APPLE POST UK* <M*U cIMki 
AA 023 APPLE PROJECTS - Cont.oN H-. p.0,.tO4 
A AO 10 APPLE ST A I EiuHiba *.»H*di 
AA044 APPLE SUPCRGRAPHICS - O.MJ. <M dianioi *Mg<M 
AA038 ARCHITECTURAL OCSIGN - CAOph** 

AA029 CALCSTAR - (lui.m. d. iJUukd 

AF007 OB MASTER 3?<PACK I - E.pn-t* 06 MASTER. 

AFOOB 08 MASTER 3 2 PACK 2 - t.pvd. D 8 MASTER 
AA082 DBASE Y.INOO.V - DBASE II *<.*.«* 

AA037 OESKTOP PLAN - Siu mu 
AA06I DISK CATALOGING -GH*ncv>*t« 200 <M<XX<M 
AF004 DOS TOOL KIT UM.Iioo t>*t DOS 
AA04S ELETRICOUET Ph* dnmxliw miva*. 

A AO 38 ELE IRON 1 C OCSIGN - CAD para Oat 
AAOI 7 FARMPLAN - Hma,,nonto da taedat 
AA048 FRAME-UP Oat 
AAOI 8 GRAPHICS 

AA06I INVENTORY MANAGER PcdHOM ccmuoM d* ntOQgM 
AA029 KNOW YOUR APPLE - Conltag* * M 
AAOI 6 KOALA ILLUSTRATOR - Gaaadaa da dMHVvo* 

AF015 LIFE SAVER P»* .*cupHH d>kxx*.t <o>n ( 

AA0I9 MAULING LIST 0 « - IttMania mtl* <x*t* 

AAOI 2 MALAOIRCTA TotHm.nl. am pc.lv/gK 
AA 02 I MASTE RTYPE - F*it4n«o axio d* dM**.* 

AA028 MERGE CALC - MhwoA. VISICALC. VISIOEX a V 1 S 1 PLOT 
AA047 MOOIFYABLE OA TA BASE - Banco d. dado. nuHKW 
AA032 PFS FILE - GHHKXdo. 

AA04I PFS REPORTER - G»U»di.i<iU<>o< <do PFS Fllil 
AA005 QUICKTRACE MW.Ic*** da .*noi 
AA0S4 THE AOORf SS BOOK - UK. <v*U com ..okm* 

A AO 33 THE BASIC MAILER - Mala Oaata para o MAGIC WINOOW. 
AAOI I THE DATA REPORTER - Uan.»K* h<*. ? H«DI. m.w* 

A AO 34 THE OOU 6 LC TAKE - Supct* M prwramadv . 

AAOI 3 THE GRAPHIC MAGICIAN - G a-ad* 

AA060 THE INVESTOR - IttumaOae 
AA029 THE VOICE - SumKadv dt 10 / 

AA053 VIP II RKaitao. no VISICALC v-mb d»M* 

AA052 VISICALC CONSOLIDATE - Un« Hqgno. <M VISICALC 
AA 0 I 8 VISICALC EXPAND* O V.hcKc com a>4 177Kb 
AA007 VISICALC FORMATTING FormatadH para o VISICALC 
AF009 WOROIND* X 30 (CP/UI - Ui-MNo da WOROSTAR 
AF 0 I 6 ZIP - For maud), dt late* do OflASf I 
AA048 ZOOM GRAF IX Gnador d* r «l<o* 

JOGOS SENIOR - CZS 180,00 

AJ09I BELOW THE ROOT - A.««lgo anurwOa 

AJI07 DARK CRYSTAL PARTS 1 E 1 - A.anlgr* am HRG. 

AJIC« OARK CRYSTAL PARTS 3 I 4 - A.HMgr* h- HRO. 

AJI08 F ISSTRHU EAGLE C—«k. « mmOaa IB4KUOVI 
AJI09 FLIGHT SIMULATOR I - S-vKador da 180 .oncKm 
AJII 8 FLIGHT SIMULATOR II S-'d. d. .do <om»*..o 
AJOII KABUL spy Um. lamiMK* nw^a polloH. 

AJOIO MICROBE - Cmr*nocorpohomHiO*<g.a*dMn(d 
AJCD 6 SARGON III No«a vanFo da Ihou SARGON 
AJO 1 3 SEVEN CITIES OF GOLO - AvHMora am NRG 184Kb » M. 
AJ003 SUMME R GAMES Ohm*** am Hu raaHg(4o (64Kbl 
AJOIO THE MASK OF THE BUN AmiNra p OKH am HRO 
AJMO TIME ZONE PARTS I I 2 - A.antgra m>*c«H am HRO 
AJIII TIME ZOM PARTS 1 ( 4 A.mlyra amacol am HRO 
AJIJ2 TIME ZONI PARTS 5 16 A.amvr. mphoI m. HRO 
AJI 13 TIME ZONI PAR T5 7 I 8 - Axntu'a m HRG 
AJII4 TIME ZONI PARTS 9 I 10 - A.^t-r. M R 0 

«WCM am HRO 

AJ08I ULTIMA A-iu. com d.-nnoc 

~*dadaU4+a 

AMI X YPMUS - FanUaiKS a^nigr* trmm 
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HOT BIT / EXPERT (EM FITA) 
Manual, am Po.lo«o*. 



JOGOS INCDITOS - CZS 100.00 

MJ015 CANNON - Otf*»dt Mu Iona 
MJOJI CHESS IXatfraa) - Um .«hirK>< data'-o 
MJ024 COLUMBIA V«Oo d> cUu co do FLIPf RAMA 
MJ028 CORRIDA MALUCA - Lab— HO mHuCO 
MJ028 DIZZY BALL - Pa*a o. pout a dntru a. ptdH 
MJ073 GALAGA - Sg«M< .art*/ do CALATICA - FLIPER 
MJ027 GALAX Av*nlu<* d.po<i Oa ttc*Hp> nucUar 
M/125 GHOST BUSTERS Baaaado no nacataa do Onanu 
MJ033 HUNCK BACK - Sal .a a prmetta da ix»» 

M/022 OLIMPIADAS) Compat^e*. oNmmcM 
LU02I OLIMPIADAS II Co-oats*« oHr-o*caa 
M/QJ4 PA OE I HO MALUCO - Oal.nda ... padarx. 

NU032 ROAD FIGHTER Corra • Iwt*. 

MJ029 THEZEUS - S K.a a prmcaw do labamio 
M/038 TURBOAT - Voc* a tu* lamb* contra o no. 



JOGOS CONSAGRAOOS - CZS 80.00 

M/008 30 BOMBER VAN El-n-u o monitro. 

MJ020 ANTARTIC AOVEN'URE - E.p'Or* o comma nt* ftlada 
UJ0I3 BIAN RAIOCR Tarr/ul ataau* Hxnfaanj. 

LU042 BINARY LANO - F «* 01 namora>*>* aa anconlraram 
MJ005 COSMOS TRAVELLER (COSMOS! - Luta no noaco 
MJ0I9 DECATHLON - Oatt'-ot OKmocca 
MJ0I7 OOGFIOMTIII 0<ll.g.0..nN.K-»9H 
LU037 DON PAN A t t, . M nt«.a 

MJ00I FLIGHT SIMULATOR (BOINGI - SmgUdbr Bom, 737. 
MJOI1 FROGGER - Atnda ttnundo IKMUr . rv. 

MJ004 HAUNT! 0 HOUSE - EieaU o pr«d-o mH auon«>ado. 

MJOIO HERO SilasHWgrci 

M/118 HOT SHOE - Eroconantt amtut ngcW 

MJOOB HYPER SPORTS I (SPORTS II - Stniaeonao com—t^a- 

LU009 HYPER SPORTS II (SPORTS III - M.i d*Wx« nporv^t 

M/038 JUMPING RABBIT (Cc.mo UHgCOl - P npu. a. canouTM 

LU040 KEYSTONE KAPERS - Prand. o Udrio 

M/012 LE MANS - Cmdidianai 

MJ0I1 MOON PATROL (LUNAR) - Pa'nKba a p«uN«d da kx. 
U/043 NORSEMAN - Oa>andata d), ^adiat. 

M/007 PITFALL II - SrK* *0 do ATARI 

WJW ^° lAn STAR e.t.'K. cdiTvea ^ POLAR IV. 30. 

M/103 PROJECT A IFAIXA PRETAI - Art.. Man.Kl 
MJ0I6 PYRAMlO - M-itl'O a parxo na »<<l-d. 

MJ0I4 RIVER RAIO SuP^a o> dWOc no ,g,. 

LUOI4 SPOOK ANO LAOOERS (SPOOK) - (.capa dot mentm 
M/OIS SUPER COBRA D.tn>j. Hu hH<d»aro. 

M/039 TRICK BOY (FLIPPER) - Um bdpar aanaac«nH 

utiutArios/apucativos irjf oitos - CZS 160^)0 



JOGOS INtDITOS l.arOo oofmH) - CZS 70.00 

SJI4S ARUAGE OOON - FanUnca ior«Fo dt MlSSE L COMAND 
S/146 BEAKY ANO THE EGGS- Mat* otiaiPBai da mm*. 

S/D 28 BEAR BOVVER - A)wda o m (0 a carr*9ar o cammNlo 
S/131 BLADE ALLEY - Combat* Ot Inmugoa da gKt.a ALFA. 
SJI60 BLINO ALLEY - InoNH dMHx dt moaoi 
S/213 BLUE MAX - Combat, atrao na Sagunda Gwart* 

SJ130 BRUCE LEE - Con«Maoing>n no tarrvk) maCdrto 
SJI78 BUBBLE BUSTERS - E.loura toda. « bolhn 
SJ166 CARRl ARWATI - Oanrua o» tanouai ra pout. 

SJIS 2 CENTIPEDE Sb.^unt.a mat. a uMofdx 
S/137 CRITICAL MASS lnc<(xU Bt.a a d» no t-m. OUHA 
S/181 OARTZ - fmo<>w*AU,093d*d*rdoi 
SXCB DEATH CHASE - PatriKN* a Ho. ana ngma moto. 

S/115 DISCO DAN - OataFx o doco mortH. 

SJI 68 OOOGE CITY S*x o tarda a mat* 01 pxiCaaot. 

SJ 0 I 8 DRILLER TANKS Oanrua aa larr/iax cxiuraa. 

S/023 DRIVE IN - TanNal dnalo no ano 2000 
6X113 ENOURO Cornd* da rtaiiFncx amautamd^l. 

SJ170 ERIC R THE FLOATTERS — Eiploda 01 batSai 
SJ209 FAIRLIGHT - Uma ..antu-a como voc4 none. «<gl 
S/133 FLAK - Elunxaai bam .091 
6/074 FOOTBALL MANAGER - S*>a o Mcnxo da IwUbol. 

S/159 GALACTOIOES - Cmodonanu combat* na gaUit*. 

S/ll 7 GAL AT 1 C RAID* RS - FanUfOco oontxtt tipaext 
SJI34 GULIGAN-S GOLO - E«iW oa !•«»*« da nuna 
SJI79 GOTCHA - Tana, aacapar da pixBa. 

SJI44 GRANO PRIX - Vo«B nlo poda pardar aau prom. 

SJI54 GRIORUNNER - Alaoua •* •oxaoraa do v >d 
SJI55 GROUND ATTACK - Ranaut na caxig mKdta 
S/149 HAROCHEESE -Tanuacxnna.oovdao 
SJI74 HAUNTED HEDGES FanUMKOpacman am 30. 

S/135 HUNCK BACK II -An-UOuaxmodJ am Hxmn^xa |. 

S/157 IS CHISS Oi.ma - U, da tad-a, p ... ..pun 

6X017 JACK « THE BEANSTALK - laei. o p* da lagfo 

SJI 77 JOUST - Oaat.ua oa cm— oa Mwdxta 

SX «22 JUNGLE FEVER At.a>aaa* oa panaoa da 'loan*. 

SJI67 LA RANA - No.* eralo do FROGGER (- 

S/114 LEAPFROG - Conduit o aapo all aua cat* 

SJI 73 UICROSOT - Canaan* toctoa oa nxanamamoi |. 

S/171 MONSTE R MUNCHCR - Novi .aralo da concaaa. ( 
S/147 MONTYUOLE - I .pFor. a nvna d. cuUo (. 

SJI47 MOON ALERT VartFo par* Spacirum do MOON PATROL l« 
SJI S3 Nf W POKI R - PbLar llpado como na* irddumaa aluat « 

S/217 NIGHT SHAOC - A.*Ai w ra am 30 na < dada amaMtf oada 
SJI 83 ORC ATTACK - Nto data* a*u unKo a at mvaddo 
SJI 48 PAINTER - I .da onaM«inu 

6J078 PAKACUOA - Um com. coma mrupnamn dlatKU l< 

SJI 84 PARAOROIOS - Ma>ai«doaoapua«uad.iui l< 

S/714 PARATROOPERS - MatraOx 01 paraagadotaa. (< 

SJOIO PMEENIX - Outrua oaaarrlMXidiaaoa (( 

SJI 40 PITFALL 7 Ouira aMMipadaMarryP.il all l< 

SJI IB PLANETOIM- Oan.ua 01 maaaorot (1 

S/137 POKER V aralo am pwtuprlt ettnt Otimo | 8 gb. (< 

S/I 38 RAIO OVER MOSCOW - Imoda a/oicog H 

61141 ROCCO - 6 #h -« -vanc/^i boaatd*. H 

6X108 ROULETTE - AdoaaarxroitU a docaupudar V 

SJI 80 RUPERT 8 TOYMAKI RS - l*v* o taao Rupart *U a lana l< 
S/171 SHAOOW FAX Mnaiodotoa <>.*—« |i 

SJ'38 SKOOL OAZf - Autta aa aiKaa a acarn o. noadot N 

SJI 75 SNOOKER - Tradoonal logo da alnuc*. I« 

S/004 SPECTRAL INVADERS - Oan.ua aodoi oa imeeraa II 
6/143 SPEIODUfL - I ■ca'anaa corrda da carrot I* 

SX»7 SPORTS HI RO - Tbmaaa um hatdl NC«x>. 

S/i 31 SPY HUNTER - Oaaa.ua 01 vakuioa arumgoi. 

SJI5I STOP THE EXPRESS - Para e (ram wpudtr 

SJ 1 99 SUPE R PAC MAN - Entrant. «na dMliO 

s/129 Tm* BIROS 8 i THE BEES - Conduit a ab*«a (1 

S/I 80 The OUE L - Tama ..baiar o dwo 

6J13B THE UNOERWURLDC Raagata o laaouro do aubaolo. 

S/305 THE WARLOCK OF EIRE T - Umaar.Nal lab— no 

SJ708 THE WAY OF IXPLOOINO FIST - L-ta.Mncxn 

S/1 1 7 TMRUSTA - U>nwa << poNoa com aua nava 

S/01 6 TIM* GATE - Inc/Nal cnn4>M. no aap*<o a<da*K 

S/167 TOAER OF EVIL - (via <M tnrlx.i momtroi 

SJI77 TRAIN GAME -Cbnirda uma ddalarrbrdrx (I 

SJI 8 S TRAXX - Camplata icdoi oa •aadadx (I 

S/030 WORLO CUP FOOTBALL - Pan-opa da CopiSS. 14 

SJI5B WORLO WAR - Cor-bata 01 nar-.t.. 

S/711 XANAOU - Um corbaca aam i.Fpaa no t*ac« 

S/137 ZAXXON - Steam, da pUtalerma.ipacxl 14 

SJO! I /ZOOM - Da'anda ot aobr*v(v*ni*a da baiabx. (4 



JOGOS CONSAGRADOS (ycrao ordinal) - CZ$ 50.00 

S/D95 30 ANT ATTACK - Said a garoia* luiadai lormtgaa. 
S/072 30 COMBAT ZONE - Inclval bat.iK. da VindtdOL 
6/358 30 DELTA WING - Bai.m. *4r*a tfidmaniional. 

S/394 30SCIOOA8 ATTACK - Corbauoa inxto... da c<d*da. 
6/147 30 STARSTRIKE - BatalKa *4>*a ti «<► man won. I . 

S»54 30 TANK DUEL - Baum, da u ngg.a udunanMnal. 
S/085 747 FLIGHT SIMULATOR - Pilot* um (gmbo 
SJ041 AO ASTRA - Fu,. doa malaotoi a a'M* not •nim>/oi 
S^91 ANDROID 2 - Condur* o android am gm labirmto 30. 
S520 APPLE JAM - Com. tod. a g*Uu um angorda. 

SJ084 AOUAPl ANE - Pilot, o bar co a conduta o atciuxdH. 
6X143 ARCADIA - E.poino combat. ..pleat 
6X797 ASTRO BLASTER - Oaaafx 11 "Ml alxnlgcnaa. 

SJ049 AUTOMANIA Ajgda o mic4>uco a moniar o oar.o 
S/087 BACKGAMMON - J040 da gamlo par. ..paitt. 

S/176 BEACH ME AO - Comma* u<»» «v.»ao da luxilatroa 
SJ050 BOOGA BOO - Rrw.. o upo da evarna prolgnda. 

S/067 CAVE LON - S*i* gm NnOico cauaitrco dti cruucMi. 
SJ0B8 CHEQUE REO FLAG - Sa»a umcoiretfctr dt EBrnvla I. 
6/084 CHUCKIE EGGS - Pagut oa ovoa aam tat Iwcado 
SJI04 COOKIE - Sa,a um atanlads cor.nK.no 
SJ058 DECATHLON I Ir.maxo d.a da pro... olfmpei 
S/757 OECATMLON 2 Van«a o aaggndo d a da olimplada. 

S/07 1 ESCAPE - Tant. tus- par* tobfvim 
S/175 ESKIMOEDDIE - Salia o pmggm no Aruco. 

S/153 FALL GUV - Coll Saa.ariam *<lo (OURO NA OUEOA). 
S/059 FIGHTER PILOT - P.loi* um modarno a.Uo dt combat*. 
S/185 FRED - Aiud* o arquadlogo a aau da tumba. 

S/046 F RE NZY Elmwit 01 anc/dadil tn.mooa. 

S/037 FULL THROTTLE - Excaltnta comda da mnockiiu. 
SJ009 GULPMAN - Com a aa r—cii am lOdn *1 tain. 

SJ08O HARRIER ATTACK - PAotaumSCA HARRIER. 

SJO 34 HIGH NOON - (Xu.O no i«lKo oana 
SJ102 HORACE 8 SPIDERS S a*x Ho.leo dai aranKaa 
SJI03 HORACE GOE S SKIING Lax Morfcio pan aaqgxr. 
SJIOI HUNGRY HORACE N»o daiaa Mor*cx morcar da lomt 
SJ036 INVASION FORCE Oaat.g. a nax .nt..pl»n..|,ia 
6X>88 JE T PAC - Mont* o lotutta a lu,. do P*n4t*. 

6/389 JET SET WILLY - AcK* oa obiatot para mdar cJunvc. 

6/0 13 JUMP CHALLENGE - Um. prox da ulto am motoddau 
SJ096 JUMPING JACK - La.* J.d. SaUadH .0 topo da l*la. 
SJ077 KOKOTONIWILF - Condgr. o.",o pal. p-FKrtMn. 
6/088 KONG Salx a mocmKa a dtttrua o KONO. 

6/382 KOSMIC KANOA - A,ud. o mn/.-u .ipac.l 
S/179 LAZY JONES - V8rtoi|Op)l am um .6 prop.m. 

6/092 MANIC MINER - Ajudaom—roW/ly. 

SX86 MASTE R CHI SS - X.».r da alto nix! 

S/182 MATCH POINT - GanK* o lorntio da W.mbNdon. 

S/144 MAZIACS Panni* am um labnmto mortal 

METEOR STORM - Pulx.tr* oa aaltrOidai a *1 naxt. 
6X793 MR WIMPY Aruda o cor.nK.,.0 a l.r.r undglchH 
S/742 NIGHT GUNNER - Pilot* um boirbardtuo. 

S/325 NIM-BLt S*i* elmo* daaat.x a bomb*. 

6/7 38 PI Nl TRATOR - Panati* com aua nax nj <•>«»,. 

6/099 PINBALL Eacaltnt. 1090 dalltpartm* 

6/745 PI ROMANIA Sat* um bombatfo a apagua ot in<4ndioa 
6/198 POOL - FanititxD |ogo dt aingc* 

6/073 POTTY PAINTI R P.ma oa bxdr.dai a aobravix. 

6/3*3 PSSST Protti* a Ho. dai pragai do (ardim 
6/351 P6YTRON Pt..p > na*tt.(Jo orb.lt! 

SJ08I RIVER RAIO tob>ax* o tto a dr.uu. 01 MlmJgoa. 
6/081 SABRE WULF - UM o -In. put x Oatandar da morta. 
S/3 38 SCUBA OIVE - Mnpglh. no ir. prolgndo. 

SJI 05 SIMULAOOR OE v6o - Vania PortufuFl*. 

5/074 SIR LANCELOT - A/udao a tnlrtnt*. 01 partgo* 

6/3*8 SON OF BL AGO* R At.axaM to <*.. 01 parigot 
SJI00 SPACE RAIOE RS A<4o mortal no atpaptt. 

6X>78 SPECIAL OCIIVERY - Enuapx oa praaantaa 
SJ061 STRIP POKER - Orapa a nrola. 

S/139 STYX - entrant* aa aranKaa a a brunt 

SKMO TERROR-OAKTIl 40 I nlrtnl. ul ptfodlca.loa 

S/955 THE PYRAMlO - Oaaxnda o a*g>Fdo da pulmid*. 

6/327 TIME BOMB S*a<*p40 tornado tom. bomb*. 

SJI 06 TORNAOO LOW LEVEL - Um cUm.co par* Spactrgm 
6/360 TRASMMAN - Ajud. o Ir.aWo a P^H o lino. 

S/369 TUTANKMAMUN Entr. n. tgmba da TylanEamgn. 
6/052 WHEEL IE - Pilot# «ma moto inoatnaniada. 

6/383 WORSE AT SE A - N60 dti.* o na.,o algndar. 



UTILITARIOS / APLICATIVOS INfDITOS - CZt 100,00 

6F002 DISASSEMBLE R - Raaidt no topo da RAM. (48) 

SI003 DISASSEMBLER II - RnKJ. n. 4>M BASIC (48) 

SF00I FULL COMPILER - Sup** compiiador BASIC (48) 

SF004 ASSEMBLER SPECTRUM Program* am mntmBnicoa Z BO. (48) 



UTILITARIOS/ APLICATIVOS CONSAORADOS - CZ$ 70,00 

SF005 MCOOER 2 - COmpilador BASIC da bo* parlorman*. 148) 

SA004 VU -30 Um. CAD para daxrvolxr prc.toa. (48) 



JOGOS SPECIAL SYSTEMS 

(programti t manuait am portuguBO - CZS 70.00 

SJ007 ASTEROlOES - CMaaico amocionant* am nox xrrfo 
6X01 Pf ROLAS - Ac to Krbmurra com 10 m a noxa t*f*t 
SX03 VoO SIMULAOO Em nox vmik. aparlakoad*. 



APLICATIVOS SPECIAL SYSTEMS 

(t olal manta am lingua poitugutu) - CZt 100,00 

SA001 BANCO OE OAOOS - VtrlFo .ipac .1 



SINCLAIR COMPATlVEIS 

• SOFTWARE 

• REOEFINIDOR DE CARACTERES 

• SUPRIMENTOS 

SolKrta no aao catikigo 



COMO COMPRAR PROGRAMAS: Fa?a seu pedido por carta, relacionando o cbdigo dos produtos, quantidades, valor unit£rio a total por produto. 
Ao terminar feche um total gera! Nossos prepos para PROGRAMAS \i incluem as despesas postais. N3o se esquepa de identificar-se e ao local para re- 
messa. Anexe cheque nominal b STOP ICARAI DISCOS E FITAS LTDA. e remeta para o enderepo abaixo. Seu pedido serS prontamente atendido 
logo ap6s a liberapao pela rede bancSria do valor eorrespondente. 

Gravapoes garantidas por 30 dias a partir da data de atendimento do pedido quanto a defeitos de fabricapao. 

Pedidos para as linhas APPLE e SINCLAIR, somente serao atendldos quando colocados por correio. Em nossa loja aiendemos somente as linhas 
I [ M u^ SPECTRUM e MSX. neste caso com 20% de desconto sobre o preco lisiado. 

As ofertas aqui conndas somente sao validas para pedidos colocados por correio. mclumdo-se nesta limitapao as linhas ZX SPECTRUM e MSX. 

INFORMiTICI CORRESPONDENCIA: PRAIA DE ICARAf,211/Lj. 03- NITEROl-RJ- CEP 24.230 -TEL.: (021) 717-1700 






O Hotbit 
com gravador 
e joystick. 



Os limites da compatibilidade 



O langamento do padrao 
MSX representou, sem 
sombra de duvidas, uma 
revolugaona Informatica, e 
o seu sucesso e inegavel, 
principalmente na Europa e 
Japao. No Brasil, 
entretanto, desde o im'cio 
levantou-se a questao 
quanto a peculiaridade de 
nossa lingua, o que exigiria 
modifica^oes na maquina, 
mais precisamente no 
teclado e na tabela de 
caracteres. Com a entrada 
do padrao no Pais, cada 
fabricante tentou resolver o 
problema a seu modo, 
criando diferengas entre os 
equipamentos nacionais. 

Neste artigo, Henrique 
Figueredo Luz expoe sua 
opiniao a respeito da (in) 
compatibilidade dos MSX 
nacionais. Em breve, MS 
trara uma analise de sua 
equipe sobre o assunto. 



Henrique de Figueredo Luz 



O Expert, 
da 

Gradient e. 




Q uando a iluminasao a gas co- 
ngou a ser substituida pela 
eletrica, cada fabricante tinha 
urn padrJo diferente de rosea 
para suas lampadas. Isso fazia com que 
uma residencia com urn determinado 
tipo de instala?ao so pudesse ser equipa- 
da com lampadas de uma unica marca. 

0 mundo da informatica sofreu a 
mesma "doen 9 a juvenil”. Cada fabrican- 
te se sentiu no direito de conceber sua 



KSX Basic versa o 1.® 
Grad iente 
23311; butes livres 
Ok 

HOT-BASIC versao 1.1 
EPCOM CZ.F.HANAUS3 1985 
Mein. Livre 20815 
Ok 



1 Figura I 



propria vers2o de uma dada linguagem 
ou sistema operacional. 

O padrao MSX, ja adotado por mais 
de duas duzias de fabricantes no mundo 
inteiro, veio para acabar com a “Babel” 
que se instaurou no mundo da computa- 
920. 

Desta forma, urn software desenvolvi- 
do para uma certa marca, deve servir, 
com certeza, em outras linhas, desde 
que obedecendo aos padroes MSX. Os 
micros dessa linha obedecem a seguin- 
te configura 9 ao minima: ROM de 32 
Kb, contendo o interpretador BASIC e 
o BIOS (BASIC Input Output System), 
RAM de 8 Kb (as versbes brasileiras 
possuem 64 Kb); um sistema de dois 
slots (as versoes brasileiras possuem 
quatro). O sistema de caracteres deve 
seguir ao padrSo ASCII. 

Mesmo seguindo a um padrao, exis- 




Slot 0 Slot 1 Slot 2 Slot 3 



1 Figura 3 




RAM 16 Kb 
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tern, porem, diferen 9 as de fabricante para fabricante. Entre- 
tanto, elas nao chegam a prejudicar significativamente a com- 
patibilidade. Nos representantes nacionais do padrao MSX — o 
Hotbit e o Expert - as principais diferen 9 as sao seis: teclado; 
mensagem do fabricante; mensagens de erro; disposi 9 ao dos 
slots; conjunto de caracteres; e comandos para impressora. 

TECLADO 

A Gradiente, que parece querer atingir um segmento mais 
profissional do mercado, elaborou um numerico reduzi- 
do de extrema funcionalidade, sem prejudicar o posicionamen- 
to das teclas de controle do cursor. A acentua 92 o e feita por 
uma unica tecla, mas pode-se tambem ter acesso as vogais 
acentuadas pelas teclas RGRA e LGRA. 

Ja a Sharp, mais voltada ao mercado domestico, preferiu 
nao colocar um numerico reduzido, optou por preencher o 
mesmo espa 90 com gigantescas teclas para o controle do cur- 
sor. No Hotbit, a acentua 9 ao e feita atraves de tres teclas, duas 
com dois diferentes tipos de acento e uma com o trema e um 
carater normal (apostrofo). 




Quando o teclado esta sendo usado normalmente, ou seja, 
nenhuma das teclas graficas estd sendo pressionada, a disposi- 
92 o de nove teclas d completamente diferente. Para quern esti 
acostumado a programar em um Expert e depara-se com um 
Hotbit na frente, ou vice-versa, e bastante incomodo ter que 
procurar a tecla das aspas, a do dois pontos ou a do ponto-e- 
virgula, que sao amplamente usadas em um programa BASIC. 

Existem grandes diferen 9 as nos dois micros em rela 9 ao ao 
acesso dos caracteres graficos. Nas versbes europeias do MSX, 
seis tipos de teclado podem ser ativados; minusculas; maiuscu- 
las; minusculas acentuadas e o alfabeto grego mimisculo; 
caracteres maiusculos do alfabeto grego; caracteres graficos I; e 
caracteres graficos II. 

Para acessar tais teclados, existem duas teclas graficas que 
sozinhas ou combinadas com a tecla SHIFT realizam o acesso 
aos teclados alternatives. Nos dois micros, essas teclas recebem 
os seguintes nomes: GRAPH e CODE (Hotbit); e L GRA e 
R GRA (Expert). Deste modo, o usuario tern duas maneiras de 
acessar os caracteres acentuados, pelas teclas de acento ou ati- 
vando o respectivo teclado. 

0 Expert respeita essas conven 9 bes de teclado da versao 
europeia. Ja o Hotbit nao possui o teclado de minusculas 
acentuadas, acessando esses caracteres apenas pelas teclas de 
acento. As letras gregas minusculas foram agrupadas as maius- 
culas, j2 que estas n2o ocupavam a totalidade do teclado. 




MENSAGENS 

Mensagem do fabricante — talvez seja o menos significa- 
tiva das diferen 9 as entre o Hotbit e o Expert. Ela se encon- 
tra a partir do endere 90 &H7ED8, ocupando 74 bytes, e e 
apresentada sempre na screen 0 (cada um desses bytes 
contem o carater ASCII com os dizeres da Gradiente ou da 
Sharp). 0 Hotbit e o Expert apresentam as mensagens mos- 
tradas na figura 1 . 

0 fato de o Hotbit apresentar “versao 1.1” e o Expert 
“vers2o 1 .0” pode levar um leigo a pensar que o BASIC do 
Hotbit e uma versao mais aprimorada que a do Expert, mas 
isso n2o e verdade: quanto aos recursos do BASIC, os dois 
micros s§o identicos. 

Mensagem de erro — o Expert apresenta mensagens de erro 
em ingles, como todos os micros fabricados no exterior. Embo- 
ra n2o haja palavras dificeis nas mensagens, um usudrio que 
nao possua um conhecimento mediano em ingles pode sentir 
certa dificuldade em compreendc-las. Ja o Hotbit apresenta 
mensagens de erro traduzidas, porem, em alguns casos, deixan- 
do a desejar. 

DISPOSIQAO DOS SLOTS 

O Expert e o Hotbit possuem quatro slots, sendo que cada 
um pode cndere 9 ar at 6 64 Kb de memoria. Vejamos porque, 
em termos de hardware, esta e a maior diferen 9 a entre os dois 
micros. O slot 0 e o slot 2 do Expert sao internos. No slot 
0, nas duas primeiras paginas de memoria, estao os 32 Kb que 
compreendem o BIOS e o Interpretador BASIC. 0 slot 2 estd 
totalmente preenchido com um banco de 64 Kb de membria 
RAM, mas so as duas paginas superiores (paginas 2 e 3) sao 
reservadas ao BASIC. 

O conector do slot 1, marcado CARTRIDGE A, possui 
prioridade sobre o slot 3, que e chamado de CARTRIDGE B 
em sua conexao frontal e BUS EXPANSION os slots do Expert. 

2 apresenta a disposi 9 ao da memoria entre os slots do Expert. 

0 Hotbit possui a ROM, com o sistema operacional (BIOS 
e Interpretador), conectada no mesmo slot que o Expert 
(slot 0). A grande diferen 9 a esta nos 64 Kb de RAM, que no 
Hotbit estao no slot 3. O conector para cartuchos e a entrada 
do slot 1, e o conector lateral e a entrada do slot 2. A figura 

3 mostra a estrutura de distribui 9 ao de memoria no Hotbit. 

Um programa em BASIC nao “sente” a diferen 9 a de estar 
rodando neste ou naquele slot, mas o maior problema estd 
em programas em linguagem de maquina que utilizem as duas 
paginas inferiores de RAM, ativem um cartucho ou realizem 
qualquer opera 9 ao com a PPI. O programa deve ser bastante 
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inteligente a ponto de saber em qual slot esta a execu?ao, 
quais os slots que possuem RAM, e ter autonomia suficiente 
sobfe a manipula^ao correta dos slots para operar sem proble- 
mas. 



TABLE DE CARACTERES 

0 padr5o ASCII estabelece o formato e a fun92o dos 127 
primeiros caracteres. As figuras 4 e 5 apresentam o conjunto 
de caracteres do Expert e do Hotbit, respectivamente. 

O Hotbit respeita totalmente o padrao ASCII, mas o Expert 
nao. 0 carater 126 deveria ser o til mas a Gradiente colo- 
cou o “Q” no lugar; o carater 96, que deveria representar o 
apostrofo contain o “9”. 

0 grande problema e a diferen9a mais visivel entre os dois 
micros s2o os caracteres acentuados. Em alguns caracteres, 
apenas a forma das letras e diferente, mas em outros n2o hd 
nenhuma rela95o. 0 Expert possui o ipsilon com til, carater 
que o Hotbit n3o possui. Em compensa9ao, ele tern o ipsilon 
tremado, que n3o existe no Expert. Ainda bem que essas letras 
n3o sao usadas pcla lingua portuguesa (alias, gostaria que 
algum leitor me escrevcsse, contando se existe alguma lingua 
que use essas coisas estranhas: ipsilon com til 6 coisa de 
americano fanhol). 

A figura 6 apresenta os codigos de alguns caracteres que nos 
dois computadores representam letras completamente diferen- 
tes. Esta havendo uma tentativa de compatibiliza93o do con- 
junto de caracteres do Expert e do Hotbit, duplicando caracte- 
res uteis, que nos dois micros representam letras diferentes, 
e eliminando os caracteres alienigeiias, que provavelmente nun- 
ca ser3o usados por usuarios comuns. Como ainda n5o ocorreu 
esse acordo, urn software que possua tais caracteres apresenta- 
r3 o grave problema de representar uma letra diferente em cada 
micro. 



Uma das maneiras de se contornar isso 6 a altera93o de linha 
por linha do programa, o que, dependendo do tamanho do 
programa, podera ser um trabalho extremamente exaustivo. 
Uma outra maneira possivel 6 a varredura byte a byte do pro- 
grama BASIC e a troca de cada carater que apresenta sua for- 
ma diferente. 0 programa da listagem 1 faz exatamente isso; 
ele deve ser inserido ap6s um programa BASIC, pela digita93o di- 
reta ou pela aglutina93o proporcionada com 0 comando MERGE, 
o que e muito mais pratico. Mas para que o MERGE possa re- 
conhecer o programa na fita, ele deve ser gravado com o co- 
mando SAVE, que no cassete grava as linhas do programa no 
formato ASCII. 

COMANDOS PARA IMPRESSORA 

As impressoras brasileiras, que respeitam o padr3o Abi- 
comp, possuem todos os caracteres acentuados da lingua por- 
tuguesa, os quais tambem estSo residentes nos MSX brasilei- 
ros. 0 c6digo desses caracteres, porem, 6 diferente nas impres- 
soras e nos micros. Se um dos caracteres acentuados for envia- 
do para a impressora, podem acontecer coisas estranhas como 
o salto de pagina e o ativamento dos caracteres condensados 
ou expandidos. 

Isso acontece porque os caracteres de 0 a 31 e os de 128 
a 159 s5o caracteres de controle da impressora, e no MSX eles 
representam letras acentuadas. Quando um desses caracteres 
6 enviado para a impressora, ela interpreta-o como um cardter 
de controle e n3o como uma letra (6 assim que essas coisas 
estranhas acontecem). 

0 Hotbit possui intemamente uma tabela que transforma 
os caracteres acentuados para 0 padr3o Abicomp, e esta 
tabela j3 est3 ativa quando o micro 6 ligado. O Expert, entre- 
tanto, apresenta este tipo de problema, existindo, contudo, a 
uma maneira de contorn3-lo. A listagem 2 contdm um progra- at, 



COD EX|C. H . 1 

9 6 c 

12 6 C * 

128__' < S 

12 9 u ... 

13 2 — S A 

13 4 a 

135--' c 

13 7 | 1 

1 4 0 1 Z i ZZZZe 

141 1 t 

14 2 ft 6 

14 3 A fa 

14 7 6 o 

14 8 6 o 

14 9 6 o 



COb Exp. H.B 

1 50--G 0. 

1 51 U u 

1 52__g y 

1 5 4 — 0 0 

1 58__Cr f, 

16 2 6 6 

16 3 G <1 

1 66__S a 

16 7 — S 2 

174__« « 

1 7 5 _ _ >> » 

181 — o o 

1 82 0 0 

185 — u ij 

18 9 V. * 

240__S = 



Figura 6 



Listagem 1 



65000 

65010 ’» ADAPT ADOR IIBEXPCRT ■ 

65020 '• IIFNRIQUE LU7 ABRIL/06 « 
65030 

65040 CLSsCOLOR 15.4.4 

6505© PRINT" — - ADATTADOR 

65060 PR INT"EXPEBT - >1101 -HI I 1" 

65070 PRINTS PR1NT"II0T HI I 5EXP1RT 



65000 PRINT" - 



650V0 E% : INPUTS! 1 > 

65100 DIM A<6, I > 

65110 L \>R N= 1 10 5: READ II, I 
65120 IFCft'~l~THCNSUM> II, E 
65130 A!M,0>*ll: A(N.1>=E: NEXT N 
65140 EOR R -32767 TO 65535! 

65150 K=PEEK <R > 

63160 IF KO AND PFEMRM) 0 AMD PEEK <R 
• 2)“0 THEN PRINT'PROT'.RAHA 1RAMSI ORNADO" 
: ENI) 

65170 IT 1=0 THEN R=ll*4: r=0* GOTO 6521 

O ELSE G0T065180 

65100 IE K= l 43 THEN F=-l 

631'>0 IE K -34 THEN T=N0I F 

65200 TF F 1 -! THEN GOT 065220 

63210 NCXI R: END 

65220 TORN © TO 3 

65710 IF PFrK(R> A(H,0> IIIIN POKE R , A ! M 

,l>: PRIN1R*" "rPCEK <R > : G0T0652I0 

65740 NEXT H : GOTO 65210 

65250 DAI A 135,96,120.126,126.120.103,1 
29.96.131,132.65 



Listagem 2 



100 ’NUMNttNNNMNIINNNttNIIIINIIIIHIIIIMNNNII 

110 ’■ ADAPTADOR I I -MSX/MOMICA ■ 

■ 1906 HILTON HALOONADO JR. « 

120 '■*■«■■■■■■«.■**■ 

130 DATA FE.60 CP 60H 

140 DATA 28,13 JR Z.C2E5II 

150 DATA FE.7E CP 7EH 

160 DATA DO RET C 

170 DATA FE.D7 CP D7M 

100 DATA DO RET NC 

190 DATA E3 PUSH HL 

200 DATA D5 PUSH DE 

210 DATA 21.EC.C2 LD HL.C2ECH 

220 DATA 16.00 LD D.OOII 

230 DATA 5F LD E.A 

240 DATA 19 ADD HL.DE 

250 DATA 7E LD A.(HL> 

260 DATA D1 POP DE 
270 DATA El POP HL 
200 DATA C9 RET 
290 DATA 3E.7D LD A.7DH 
300 DATA C9 RET 
310 * 

320 DATA A6.flO,7E.20.C8,C3,C4,Ci,C5.6O. 
C9 , CA , 20,20 , CD , CD , A4 . A2 , AO , D5, 85 . B2 . 03, 
00 , DO , D6 , 20 , D3 , 1)9 , 20,20 , 20 , 20, 20.C2 , CC , 
Dl,D7,Cr. Ar.DC.DD.DE, 20. 20. 20, 20, 20, 70, 
20, A4 , C4 , 20 , 20 , B3 , 113 , 20 , 70 
330 ' 

340 CLS*PR INT"GRAPPLER MSX/MNICA PLUS" 
350 PRINTSPRINT :PRINT "Atjuardc um infata 
nte. . 

360 FOR 1=0 TO 03SREAD ASsPRIMT LEFTS! A 
S , 2 > » " "j 

370 IF LEN! AS) >2 THEN PRINT TAB!15)jMID 
S! AS, 3) 

380 POKE 50000 1 ♦ I , VAL ! "RH"» AS ) : NEXT I 
390 POKE 6HFFB6, 195JP0KE RHFI 11/ . OOrPOKE 
6HFFB8, 195*LPR I NT CURS (27) r"R"»CHRS! 1 ) 

400 END 



ma que, atravds de uma rotina Assembler, faz as devidas trocas 
dos caracteres enviados pelos equivalentes da impressora. 

E importante que a sua impressora possua o gerador de ca- 
racteres Brasil/Portugal, pois ele d ativado por este programa, 
que foi testado em uma Monica Plus e funcionou perfeitamen- 
te. 
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este soft vai seduzir voce! 



SOFTWARE 



SPECTRUM ZX 
TK90X-48K 




SOFT 



ultimas novidades do mercado europeu 



LT01 - Bounty Bob Bob nas Minas 
LTQ2 - Moon Alan Alena Lunar 
LT03 - Popeya 0 Marinheiro. 6 daro 
LT04 - Hunter Kilter Pilots um Submarino 



LTD 6 - Skoll Deie ■ Conlusio na Escola 
LT08 - Pud Pud Tente Sobreviver 
LTO; - Booty AqSn Pirata 
LT08 - Profanation ProlanacSo 
LT09 - Baseball Ultima Vets3o 



LT20 Spy Hunter Cacador de Espibes 
LT21 - Pyjamarama Escape deste Sonho 
LT22 . Glass Aventuras em DmensAo 
LT23 - Death Chase 5000 Lances Mortars 
LT2S - Vidaolimplcs Torneio OUmpico 



LT10 - Project Future Perigo Nuclear 



LT26 - Pogo Joe Acerte o Jato 
LT26 - Karate Kid Incrlvel Luta 
LT2/ - City Hall MrssJo Espacal 
LT28 . Nightshadow Destrua os inimigos 
LT29 - West Bank Ac3o no Velho Oeste 
LT30 - Baakat Ultima Versio 
LT31 - Robin Wood O resgate 
LT11 - Squash 0 Desatio LT32 - Tima Gats - 0 PortSo do Tempo 
LT12 - Rocky 0 Boxeador LTD 3 - Comando Exercldos de Guerra . 

LT34 - Be Bill Aventura nas Caver nas 
LT35 - Tapper O Incrlvel Choppeiro 
LTD 6 - Herbert's - Travessuras do bebO Wally 
LT13 - Moon Crests - Desalto Lunar 
LT14 - Boulderdash Euga em Marte 
LT15 - Dambusters Miss3o em plena guerra 
LT1 6 - Allan 8 Um Robb conduz uma Nave Espaciai 



agora 
no Brasil I 

LIGUE JA! 



(021)222-9991 




ALTA QUALIDADE DE GRAVAQAO 
E PRONTO ATENDIMENTO 



TODOS 08 JOGOS COM MANUAL EM PORTUGUtS. 



Os pedidos pot carta devem ser lotos atravts de cheque nominal 
a CEOUSOFT INFORMATICA. EOUCAC-'O 6 SISTEMAS 



LT1 > - Everyone's Vally Varios personagens em ac8o 
LT18 - Dukas of Hazzard Corrida nas Estradas 
LT19 . Mission impossible O agente secreto 

Custo Uni ter io - Cz« 80.00 




VENDAS: CEDUSOFT INFORMATICA. EOUCACAO 6 SISTEMAS LTDA. 

Rus Sets de Setembro. 92 Sals 1 104 Te 021 222 S99I CEP 20050 I Rio de Janeiro 



0 

1 



253-1120 



Com a Centraldata 
a entrega e imediata 



253-1120 



NAO PONHA EM RISCO O SEU COMPUTADOR, ADQUIRINDO 
PRODUTOS DE QUALIDADE CONSAGRADA. 



MIDIA MAGNETICA 

• Disketes e fitas magn6ticas, marca DATALIFE 
VERBATIM, com 5 (cinco) anos de garantia 

• Discos magn6ticos, marca IMPELCO, com 
1 (um) ano de garantia 

• Disketes de 51/4" para limpeza do cabepote de 
leitura e/ou gravacao 



FITAS p/ impressoras em geral, marca 
CARBOFITAS, com garantia total contra defeitos 
de fabricagio 

Etiquetas PIMACO - PIMATAB 
FormulSrios continuos e pastas 
Arquivos p /disketes com capacidade para 
10 ( dez) ou 100 (cem) disketes 

CONDIpOES ESPECIAIS 
PARA REVEIMDEDORES 



Suprimento e coisa seria 



d 



CENTRALDATA 

Com, s Represenlacoes Lida . 



Distribuidor Autorizado: 

CARBOFITAS . PIMACO • VERBATIM 
Av. Presidente Vargas, 482 - Gr. 201 /203 
Tel.: KS (021) 253-1120 - Telex (021) 34318 











Cadastramento de provas, arquivos ou pesquisas de opiniao, em micros 
da linha TRS-80, sao algumas das aplicagoes para este programa. 



Avaria/BAS 

Fabio Zickere Alberto Centero Filho 



programa Avaria/BAS foi desenvolvido no Departamento de 
Medicina Preventiva da UFG e Nucleo de Dcsenvolvimento 
de Saude-GO, e vem sendo utilizado em pesquisas na area 
de saude publica. 

Elaborado em BASIC-disco num vocabula'rio nao especifi- 
co, o programa e' adcquado para os microcomputadores da linha 
TRS-80, possibilitando ao usuario a definigao de seu proprio arquivo 
de dados. Por ter um menu principal de opera;3o e uma execuijao de 
forma intcrativa com o usuario, sua utilizafSo toma-se bastante simples. 

Avaria/BAS tern como objetivo a analise de rcspostas a um deter- 
minado conjunto de itens no programa denominado campo, atraves de 
altcrnativas alfanume'ricas. 

Alem de pcrmitir a busca de um determinado registro e altera^ao 
atraves de seu numero, o programa faz a analise qualitativa das respos- 
tas, permitindo pesquisas por alternativas ou associa^o delas e sua 
quantificacao. 

0 menu apresenta as seguintes opfdes: 

1 - Leitura de arquivo; 

2 - Abrir novo arquivo; 

3 - Pesquisa pelo niimero de registro; 

4 - Pesquisa por variaveis; 

5 - Tabela de freqiiencia de variaveis; 

6 - Entrada de novos registros; 

7 - AlterafSo de registro; 

8 - Delefao do arquivo on-line; e 

9 - Consulta ao diretorio. 

O principio geral do programa consiste na definii;3o previa de um 
arquivo atraves da opfao 2, onde serSo especificados alem do nomc, o 
numero de campos a serem respondidos (poderiam ser perguntas de um 
questionario) e o numero de alternativas para os campos (possiveis res- 
postas as perguntas). 

Por exemplo, poderi'amos definir um arquivo de 30 campos ou 
questdes a serem solicitadas e que cada um destes campos teria cinco 
possi'veis alternativas de respostas (A,B,C,D,E). A seguir, o programa 
solicita a entrada dos registros com as respectivas alternativas para cada 
campo. Desta forma, pot exemplo, o registro (ficha) numero 1 poderia 
ter os seguintes dados: 

Ficha numero 1: Campo 1 = A; Campo 2 = A; Campo 3 — B; 
Campo 4 = E... e assim por diante ate' o Campo 30. Cada um dos 
campos teria uma determinada resposta, neste caso, variando de A a E, 
como definimos anteriormente. 

Pode-se verificar que o questionario a ser analisado devera ser de 
respostas fechadas e indexadas, ou seja, oferecer alternativas de respos- 
tas ja definidas, onde o preenchimento do mesmo seria realizado apenas 
assinalando uma destas alternativas. 

Os registros v3o sendo gravados automaticamente no disquete e 
ao terminar a entrada dos dados pode-se voltar ao menu principal 
teclando arroba (@) no campo 1 do proximo registro. 

Caso ja existam dados gravados, a operacao deve se iniciar pela 
op?5o 1 , com a leitura de um determinado arquivo; e a seguir, a seleijao 
de uma opjao qualquer do menu, a n5o ser que se queira inicializar um 
novo arquivo. 

Apos a leitura de um arquivo, o programa informara o numero 



de campos, alternativas, registros gravados e de gr5os ocupados pelo 
arquivo. A inclusao de novos registros a um determinado arquivo e 
feita da mesma forma descrita, atraves da opijao 6, sempre apos passar 
pela op?So 1. 

Na parte analitica das respostas, poderemos trabalhar com as 
seguintes op^Ses: 

OPQAO 3 - PESQUISA PELO NCMERO DO REGISTRO 

Esta op(3o permite buscar uma determinada ficha atrave's de seu 
numero c conhecer todas as respostas de cada campo. Com o comando 
<CTRL E> retoma-sc ao menu e com < CTRL N>, pesquisa-se nova 
ficha. Observa£3o: no CP 500, a tecla CTRL e substitufda por SHIFT 
seta para baixo. 

OPQAO 4 - PESQUISA POR VARIAVEIS 

Neste caso, o programa perguntara qual e o campo ou condi?3o a 
ser pesquisada e qual a alternativa de resposta que lhe intcrcssa. A 
seguir, sera listado no video o numero das fichas que satisfizerem a con- 
di?5o solicitada. Exemplificando, se tive'ssemos interesse por todas as 
fichas assinaladas com a alternativa 3 para a questSo niimero 20, os 
numeros das fichas que satisfizessem esta conditio seriam mostrados. 

Da mesma forma, poderi'amos pedir as fichas que atendessem 
mais de uma condig3o ou associa?3o de variaveis. Exemplificando, po- 
deriamos pedir todas as fichas que alem de ter o Campo 20 = 3 tambem 
tivessem o Campo 25 = 2. 

Para isso, ao inicializar a op?3o, o computador lhe perguntara 
quantas condi?5es deseja verificar. Com o comando < CTRL D >, 
teremos a informaijao sobre qual foi a condisao solicitada. 

OPQAO 5 - TABELA DE FREQUENCIA POR VARIAVEIS 

Nesta oppio, trabalhando da mesma forma que no item anterior, 
o programa construira uma tabela de freqiiencia dando a quantidade de 
fichas que atenderam a condiijao solicitada e quanto representa isto em 
termos percentuais. 

OPQAO 7 - ALTERAQAO DE REGISTRO 

Em qualquer momento e possivel a corre^ao de uma determina- 
da ficha, bastando para isso usar a op?5o 7, que lhe solicitarf as infor- 
ma^oes necessarias. 

OPQAO 8 - DELEQAO DE ARQUIVO ON-LINE 

Utilizada quando se deseja reiniciar a entrada de dados de um 
arquivo e deletar o arquivo em memoria. 

Finalmente a op?3o 9, permite uma consulta ao diretorio do dis- 
co com retomo automatic*) ao menu, sem zerar as variaveis do progra- 
ma. 

Este programa trabalha de forma bem rapida e utiliza pouco tem- 
po de memoria on-line. Na gravapdo em disquete, e possivel o armazena- 
mento de aproximadamente 1250 respostas por grSo ou aproximada- 




mente 125.000 respostas por disquete. Como exemplo, em um disquete 
poderi'amos armazenar cerca de 5000 fichas de um questionario que te- 
nha 25 perguntas. 

S3o abettor dois arquivos: um contem a definigao geral do arqui- 
vo de dados e o outro armazena as variaveis. E interessante notar que 
o primeiro arquivo tambe'm e' responsavel pela chamada do segundo ar- 
quivo (o que tem a extensSo “V” para indicar as variaveis que guarda). 

As a'reas de utiliza;3o do Avaria/BAS s3o bastante variadas. Ele 
pode ser usado em aplica^Ses comerciais, atividades de ensino como 
corre?5o de provas, arquivos diversos e principalmente em inqueritos ou 
pesquisas de opini3o. 



Fabio Zicker 6 Mddico e Professor da Universidade Federal de Goiis, e 
trabalha ainda com CP 500 e DGT 100 em atividades de ensino e pes- 
quisa. 

Alberto Centero Filho 6 Estagiirio em Programafiio, na UFG, traba- 
lhando com DGT 100 e CP 300. 



Avaria/BAS 



10 CLEAR 5000 

15 DIM CSUOO) ,CC(100) : W*-STRING* (63, 1 31 > : WW*-STRING* (63, 176) 

20 CLS 

21 PRINT" CLASSIFICADOR DE VARIAVEIS" 

23 GOSUB MO 

•25 PR I NTH 133, "MENU"! 

30 PRINT0271, "1 - LEITURA DE AROUIVO"! 

40 PRINTQ335, "2 - ABRIR NOVO AROUIVO"! 

50 PRINT0399, "3 - PESQUISA PELO NUMERO DO REGISTRO"! 

60 PRINT9463, "4 - PESOUISA POR VARIAVEIS"! 

70 PRINT0327, "5 - TABELA DE FREOUENCIA DE VARIAVEIS"! 

SO PRINT9591, "6 - ENTRADA DE NOVOS REGISTROS"! 

90 PR INT0655, "7 - ALTERACAO DE REGISTROS"! 

95 PRINT®719,"0 - DELECAO DO AROUIVO ON LINE"! 

97 PRINT0783, "9 - CONSULTA AO DIRETORIO" 

100 PRINT0847+64, "DE A SUA OPCAO "II INPUT OP 
110 IF 0P>9 OR 0P<1 THEN 0P-0:G07O 20 

130 ON UP GOTO 200,500,800,1100.1400,1700,2000,2300,2400 
140 PRINT864 , W*1 : PR I NT ®960 , WW* ! 

195 RETURN 

200 REM LEITURA 

203 IF NA»<>"" THEN GOTO 2550 
205 NA*-"" 

210 CLS: INPUT" NOME DO ARQUIVO"|NA* 

215 IF NA*-" " THEN GOTO 20 

217 IF LENINA*) >8 THEN CLS:PRINT"0 NOME DO AROUIVO ESTA INCORRET 
0 NO MAXIMO 8 CARACTERES >":FOR 1-0 TO 1500: NEXT I: GOTO 205 
220 AN*»"/V": AN*-NA*+AN* 

230 OPEN "R", l, AN* 

250 FIELD 1,4 AS NC*,4 AS NS«,4 AS FD*,4 AS OQ* 

260 GET 1,1 

270 HC"CVS(NC*) :ns»cvs<ns*> 

275 FD»CVS(FD*> :QQ-CVS<QQ*) 

277 IF FD-0 AND NC-0 THEN GOTO 2600 

280 DIM A A* (NO 

290 CLOSE 1 

300 0PEN"R" , 1 , NA* 

310 LF-LOF < 1 ) 

320 QR-(FD/NC)*(LF- 1MQQ 
325 GR-< <L0F(1)~I)/5)M 

330 CLS: PRINT023, "INFORMACAO SOBRE 0 AROUIVO" 

350 PR I NT: PR I NT: PR I NT "NOME DO ARQUIVO - "1NA* 

360 PRINT: PR I NT "NUMERO DE REGISTROS »"!0R 

370 PRINT "NUMERO DE CAMPOS -"INC 

380 PR I NT "NUMERO DE ALTERNATIVAS -"»NS 

383 PR I NT " NUMERO DE GRANS ALOCADOS AO ARQUIVO -"!INT(GR> 

3K. CLOSE 
390 G0T02570 

500 REM ABRIR NOVO ARQUIVO 

505 IF NA*< >" " THEN GOTO 2550 
510 CLS 

520 INPUT " NOME DO NOVO ARQUIVO "!NA*: PRINT 
525 IF NA*-"" THEN GOTO 20 

527 IF LENINA*) >8 THEN CLS:PRINT"0 NOME DO ARQUIVO ESTA INCORRET 

0 .< NO MAXIMO 8 CARACTERES >":F0R 1-0 TO 1500:NEXT I:GOTO 205 

530 INPUT " NUMERO DE CAMPOS DO AROUIVO" ! NC: PRINT 

540 # INPUT " NUMERO DE ALTERNATIVAS PARA OS CAMPOS "5 NS 

345 CLS: PRINTQ960, "TECLE <Q> QUANDO ESTIVER NO CAMPO N. 1 PARA V 

OL I AR AO MENU"? 

550 DIM AA*(NC) : AA*(0)“"":C7.-0:FI«0: IA-1 
553 FD"250/NC:FD"INT (FD) :FD»FD»NC 
335 IF FD>255 THEN FD-FD-NC: GOTO 555 
560 OPEN"R", 1 , NA* 

565 FIELD 1,233 AS A* 

570 FOR 1 1 -I A TO FD/NC 
573 FI-FI+1 
375 QQ-II 

578 PRINTOO. "FICHA "!FI 
580 FOR .1-1 TO NC 
3G3 AA* II)—"" 

385 PRINTA384, "ENTRE COM A ALTERNATIVA DO CAMPO N."!l!l INPUT AA* 
II) 

590 IF AA* < 1 ) -"0" THEN IF AA*<0>«"" THEN CLOSE: QQ=FD/NC: GOTO 640 
ELSE LSET A*- A A* (0) : C7.-C7.4-l : PUT 1 , C7.: CLOSE: QQ-QQ-1 : GOTO 640 
595 IF AA* ( I ) < CHR* 1 65 ) OR AA* ( I ) >CHR* (64+NS) THEN PRINT6420, " 

" ! : GOTO 585 

597 IF LEN I AA* I I ) ) >1 THEN PRINT@420," " ! : GOTO 585 

600 AA* <0) “AA* 10) +AA* ( I > : NEXT I 
603 PRINT042O," 

605 NEXT II 

610 LSLT A*~AA* (0) : C7.“C7.> 1 : IA=1 : PUT 1 , C7. 



620 A A* (0) =" " 

625 PRINTQ420, " 

630 GOTO 570 

640 AN*“"/V":AN*=NA*>AN* 

650 OPEN"R" , 1 , AN* 

660 FIELD 1,4 AS NC*,4 AS NS*, 4 AS FD*,4 AS OQ* 

670 LSET NC*“MKG* (NC) : LSET NS*=MKS*(NS) 

675 LSET FD*=MKS* (FD) : LSET QQ*-MKS*IOO) 

680 PUT 1 , 1 

690 CLOSE l:GOTQ 20 

GOO REM PESO. 

805 IF NA*-" " THEN GOTO 2500 
810 CLS 
815 NF-0 

820 INPUT " NUMERO DA FICHA" ! NF 
825 IF NF-0 THEN GOTO 20 
830 OPEN"R" , 1 , NA* 

835 GT-INT ( INF#NC-1 ) /FD) : PL- <NF«NC-GT*FD) -NC:GT=GT*1 
840 IF GT >L OF 1 1 ) THEN GOTO 855 

843 IF GT-LOF(l) AND PL >OQ*NC- <NC- 1 > THEN GOTO 855 
850 GOTO 060 

855 CLOSE: CLS: PR I NT "N AO HA' ESTE REGISTRO 
GOTO 815 

060 FIELD 1,253 AS A* 

870 GET l.GT 

873 FOR 1-1 TO NC 

880 AA* ( I ) -MID* (A*, PL+I , 1 ) 

890 NEXT I 
900 CLS: AA“64 

905 PRINT0O, "DADOS REFERENTES A FICHA No."!NFj 

910 FOR I-l TO NC 

930 PRINT0AA, ! I ! "- " ! AA* ( I ) ! 

935 AA-AA464 

937 IF AA-1010 THEN GOTO 1020 
940 IF AA>1023 THEN AA-AA-960* 10 
950 NEXT I 

933 PRINT035, "CTRL: <E>,<N>"! 

1000 A*" INKEY*: IF A*-"" THEN GOTO 1000 

1003 IF A*-CIIR*(14) THEN CLOSE: GOTO 810 

1010 IF A*-CHR* (5) THEN CLOSE l:GOTO 20 ELSE GOTO 1000 

1020 PRINT835, "CTRL : <E> , <N> N CONI INUA" !: PRINT® 101 0, "CTRL <C 

>"! 

1030 A*- INKEY*: IF A*""" THEN GOTO 1030 
1040 IF A*"CHR»(5) THEN CLOSE: GO 10 20 

1050 IF A*“CHR* <3> THEN CLS: AA-64: PRINT0O, "DADOS REFERENTES A FI 
CHA N."!NF:GOTO 950 

1060 IF A*"CHR*<14) THEN CLOSE: GOTO 810 ELSE GOTO 1030 

1100 REM PESOUISA 

1105 IF NA*-"" THEN GOTO 2300 
1110 CLS 
1113 CN-OlA-l 

1120 I NPUT "NUMERO DE CUNDICOES S0LICITADA8" ! CN: PRINT: PRINT 
1123 IF CN-0 THEN GOTO 20 

1125 IF CN>NC THEN CLS:PRINT"0 NUMERO MAXIMO DE CONDICQES E’"1NC 
: CN-O: GOTO 1120 

1127 IF CN< 1 THEN CLS:PRINT"0 NUMERO MINIMO DE CONDICOES E’ 1":C 

N-o:Goro 1120 
1130 FOR I-l TO CN 

1133 CC(I)-0:CS*(I)-" " 

1137 PR I NT® 192, STRING* (63, " "): PRINT0256, STRING* <63, " ») 

1140 PRINT® 192, "DE 0 NOo. DO CAMPO REFERENTE A CONDICAO No. "»I 
»: INPUT CC(I) 

1145 IF CC ( I ) >NC OR CC(I)<1 THEN PRINT0192, STRING* (63, " " > * : CC < I 
)-0:G0T01 140 

1130 PRINT0236, "DE A ALTERNATIVA REFERENTE A CONDICAO No. "I If; I 
NPUT CS* < I ) 

1134 IF CS* ( I ) <CHR* (65) OR CS* < I ) >CHR* (644NS) THEN PRINT8256, STR 
1NG* (63, " " > | :CS*(I)-"":G0T01150 

1137 IF LEN (CS* ( I ) ) < >1 THEN PRINT0256, STRING* <63, " ">!:CS*(I)-"" 

: GOTO 1150 

1160 NEXT I 

1170 CLS: AA-’64:CS"0 

1180 PRINTOO, "PESQUISA POR VARIAVEIS • CTRL : <D> , <E> , <N> # 

1200 QPEN"R" , 1 , NA* 

1210 FIELD 1,235 AS A* 

1230 FOR I-l TO LOF(l) 

1233 GET 1,1 

1240 FOR WW-1 TO FD STEP NC 
1245 CK»0 

1230 FOR C0«1 TO CM 

1260 CF*“MID*(A*,WWKCC(C0)-1) , 1) 

1270 IF CF*“CS* (CO) THEN CK-CK41 
1273 NEXT CO 

1280 IF AA-IOIO THEN GOTO 1300 
1203 IF AA>1023 THEN AA-AA-960410 

1290 IF CK-CN THEN CS-1 : PRIN T®AA, "FICHA" | ( < I-l ) WW* (NC-l > ) /N 

CJ :AA"AA464 

1293 NEXTWW:NEXT I 

1295 IF CSOl THEN CLS: PRINT@513, "* NAO FOI ENCONTRADO NENHUM R 
EGISTRO COM ESTAS CONDICOES #":FOR 1-0 TO 1000: NEXT I: CLOSE: CLS 
:GOTO 20 
1297 GOTO 1340 

1300 PRINT936, "CONTINUA"! :PRINTQ1010, "tTRL <C>"! 

1310 B*=INKEY»: IF B*-"" THEN GOTO 1310 
1320 IF B*=CHR* (3) THEN CLOSE '.GOTO 20 
1325 IF B*“CHR* ( 1 4*) THEN CLOSE: G0T01 1 10 

1330 IF B*-CHR*(3) THEN CLS: PRINT0O, "PESQUISA POR VARIAVEIS # C 
TRL : <D> , <E> , <N> : AA“64:G0T0 1290 

1335 GOSUB 1360: G0T01310 

1340 PRINT037 , "FIM" ; 

1341 B*=INKEY*: IF B*="" THEN GOTO 1341 
1343 IF B*“CHR*,<14) THEN CLOSE: G0T01 1 10 
1345 IF B*=CHR* (5) THEN CLOSE: GOTO 20 
1350 GOSUB 1360: GOTO 1341 

1360 IF B*=CHR*<4) THEN GOTO 1363 ELSE RETURN 
1365 PR INT®0, STRING* (63, " ")!:FORIA“A TO CN 
1367 PI- < IA-A) *10 

1369 PRINTS62," "! 

1370 PRINTQPI , " , " ! CC ( IA) ! : PRINT"— ":CS*(IA)1 
1375 IF IA=A45 THEN A-A+6: PR INT@62, RETURN 
1380 NEXT I A: RETURN 

1400 REM TAB. DE FREQUENCIA 

1405 IF NA*-"" THEN GOTO 2500 
1410 CLS 
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AVARIA/BAS 



1415 CN»0 

1420 I NPUT " NUMERO DE CONDICOES" ! CN: PRINT: PRINT 
1425 IF CN-0 THEN GOTO 20 

1430 IF CN>NC THEN CLS:PRINT"0 NUMERO MAXIMO DE CONDICOES E'“!NC 
: CN-O: GOTO 1420 

1435 IF CN< 1 THEN CLS:PRINT“0 NUMERO MINIMO DE CONDICOES E’ 1“:G 
OTO 1415 

1440 FOR 1=1 TO CN 
1445 CC< I > =0:CS*< I>=““ 

1447 PRINT© 192, STRINGS <63, " " ) : PRINT0236, STRING* <63, “ “) 

1450 PR I NT© 1 92 , " DE 0 No. DO CAMPO REFERENTE A CONDICAO No. -Hi: 
INPUT CC<I> 

1453 IF CCCD-0 THEN CLOSE:GOTO 1410 

1455 IF CC < I ) >NC OR CC<I)<1 THEN PRINT0192, STRING* <63, - ">|:CC(I, 
)-0: GOTO 1450 

1460 PR1NT0256, "DE A ALTERNATIVA REFERENTE A CONDICAO No. “Si;: I 
NPUT CS*(I) 

1465 IF CS* ( I > <CHR* (65) OR CS* ( I > >CHR* ( 64 *NS ) THEN PRINT0236, STR 
ING* (63, " M ) I :CS* <!>="": G0T01 460 

1470 IF LEN (CS* ( I ) ) < >1 THEN PRINT0256, STRING* (63, ■ " ) I : CS* ( I ) - 

: GOTO 1460 

1475 NEXT I 

1480 CLS: AA=64:CS-0 

1483 PRINT053O, "E SPERE UM MOMENT 0“ 

1485 OPEN M R”, 1,NA* 

1490 FIELD 1,255 AS A* 

1495 FOR Y= 1 TO LOF ( 1 > 

1500 GET 1 , Y 

1505 FOR WW-1 TO FD STEP NC 
1510 CK-0 

1515 FOR C0= 1 TO CN 

1520 CF*=MID* <A*, WW+ (CC (CO) — 1 ) , 1) 

1525 IF CF*-CS* (CO) THEN CK-CK+1 
1530 NEXT CO 

1535 IF CK-CN THEN CS-CSM 

1540 NEXTWW 

1543 NEXTY 

1545 TR-LOF ( 1 ) - I 

1550 TR=TR« (FD/NC) *00 

1555 CL.S: PR I NT® 12, "T ABELA DE FREQUENCI A":PRIN 
T:PRINT"T OTAL DE REG. N FREOUENCIANPERC 
E N T." 

1560 PRINT" • • 

..-PRINT" » 

* SPRINT" N • 



PRINT0263, TR| : PRINT0288, CS! 

PR-TR/ 100: PR-C8/PR: PRINT9308, “ " I : PRINT USING I PR| 

PR I NT0376, “CONDICOES PESOUISADAS : " » : AA-600: FOR 1-1 TO CN 
PRINT0AA, ", "!CC< I > ! "■ "|CS*<I>|" "! 

PR I NT 0600," "J 
AA-AA*8: NEXT I 

PRINT0896, "T E C L E : CRLT <E> - PARA VOLTAR AO MENU"1 
PRINT0972, “CRLT <N> - PARA DAR NOVAS CONDICOES"! 
A*-INKEY*:IF A*-"" THEN GOTO 1600 
IF A*-CHR* (5) THEN CLOSE: GOTO 20 
IF A*-CHR* (14) THEN CLOSE: GOTO 1410 

REM ENTRADA DE REGISTROS 

•IF NA*= " " THEN GOTO 2500 
CLS 

OPEN"R“, 1 , NA* 

IF GQ-FD/NC THEN GOTO 1735 ELSE GOTO 1750 

PRINT9960, "TECLE < 0 > (OUANDO ESTIVER NO CAMPO No. »> PARA VO 
AO M E N U"f 

I A- 1 : CX-LOF ( 1 ) : F I - (FD/NC) »LOF ( 1 ) : GOTO 565 
IA-OOM:FI = (FD/NC)*(LOF(1)-1)*00:C7.-LOF(1>-1 
FIELD 1,255 AS A* 

D7.-L0F ( 1 ) 

GET 1,D7. 

PRINT9960, "TECLE <0> (OUANDO ESTIVER NO CAMPO No. 1) PARA VO 
AO M E N U“; 

AA» (O) n M I D* (A*, 1 , NC*00) : GOTO 570 

REM ALTERACAO 



2005 IF NA*— " " THEN GOTO 2500 
2010 CLS 

2015 NF-O: AA-64: CA—O 

2020 INPUT “NUMERO DA FICHA PARA ALTERACAO" ? NF 
2025 IF NF=0 THEN GOTO 20 
2030 OPEN-R", l.NA* 

2035 GT-INT ( <NF*NC-1 ) /FD) : PL= (NF«NC-GT*FD> -NC: GT-GT+1 
2040 IF GT >LOF ( 1 > THEN GOTO 2055 

2045 IF GT-LOF ( 1 ) AND PL>OQ*NC- (NC-1 ) THEN GOTO 2055 
2050 GOTO 2060 

2055 CLOSE: CLS: PR I NT "N AO HA' ESTE REGISTRO 
-.•GOTO 2015 

2060 FIELD 1,255 AS A* 

2070 GET 1 , GT 

2075 FOR 1=1 TO NC 

2080 AA» ( I ) -MID* (A*, PL+ 1,1) 

2090 NEXT I 

2100 CLS: PR 1NT60, “ALTERACAO DA FICHA No.“!NF; 

2110 AA-64 

2150 FOR 1=1 TO NC 

2155 AA* ( I— 1 ) -AA* ( I ) : AA* ( I ) ■" " 

2160 PR I NT QAA I ! “ — “ * : INPUTAA* < I ) 

2170 IF AA* (!)=-“ THEN GOTO 2200 

2180 IF AA* ( I ) <CHR* (65) OR AA* ( I ) >CHR* (64+NS) THEN PRINT0AA, » 

“1 :AA* (!>=-": GOTO 2160 

2185 IF LEN ( AA* ( I ) > >1 THEN PRINT0AA, “ " J : A A* ( I ) : 

GOTO 2160 
2190 GOTO 2210 

2200 PR I NT® AA," " ! : PRINT0AA, ; I ; "JAA*(I-1> 

2205 GOTO 2215 

2210 PRINT0AA," " | : PRINT9AA, "=" j I ; -|AAKI) 

2213 AA* ( I - 1 ) = AA* ( I > 

2215 AA-AA* 10: CA=CA+1 : IF CA-6 THEN CA-0:AA-AA*4 

2220 IF AA-970 THEN FORHK-1 TO 1000: NEXTHK:CLS:PRINT®0, "ALTERACA 
0 DA FICHA No. "*NF: AA-64 :CA-0 
2230 NEXT I 

2233 PRINT05O.-FIM"! 

2235 LE»-LEFT* (A*, PL) : RI*-RIGHT * (A*, 255- (PL*NC) > : AA* (NC) -LE* 

2240 FOR 1=1 TO NC 

2245 AA»(NC)-AA*(NC) ♦AA*(I-1) 

2250 NEXT I 

2255 A A* (NC) =AA* (NC) ♦RI* 

2260 LSET A*-AA*(NC) 

2265 PUT l.GT 
2270 CLOSE: GOTO 20 
2300 RUN 

2400 CLS: CMD“DIR“ 

2410 PRINT0965, “TECLE <<<ESPACO>>> PARA VOLTAR AO M 
E N U “I 

2420 A*-INKEY*: IFA*-“ “ THEN GOTO 20 ELSE GOTO 2420 
2500 CLS: PRINT® 1 28, “NAO HA' NENHUM DADO NA MEMORIAl VOCE DEVERA' 
PASSAR PEL A OPCAO PRINT: PRINT 

2510 PRINT- 1 - PARA LER UM AROUIVO JA' GRAVADO" : PRINT" 

OU” : PR I NT “2 - PARA ABRIR UM NOVO AROUIVO" 

2520 PRINT9965, “TECLE <<< E8PAC0 >>> PARA VOLTAR AO 
MENU"! 

2530 A*=INKEY*: IF A*-" “ THEN GOTO 20 ELSE GOTO 2530 

2550 CL8:PRINT®128, "JA* EXISTE UM AROUIVO ON LINE: VOCE DEVE PAS 

SAR PELA OPCAO" : PRINT: PRINT 

2560 PRINT : PR I NT “8, PARA LIBERAR A MEMORI A" ! 

2570 PRINT0965, "TECLE <<< ESPACO >>> PARA VOLTAR AO 
MENU"! 

2580 A*- INKEY*: IF A*-" “ THEN GOTO 20 ELSE GOTO 2580 

2600 CLS:PRINT®518, “O AROUIVO " I NA* ! " NAO E8TA' GRAVADO NESTE DI 

SKETTE" 

2610 PRINT0963, “TECLE <<< ESPACO >>> PARA VOLTAR AO 
MENU-! 

2620 A*-INKEY*: IF A*-“ “ THEN RUN ELSE GOTO 2620 
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0 1.° Shopping de Informatica do Brasil. 



•Aleph Sistemas 
e Metodos 
•Andraus 
Informatica 
• Ciencia Moderna 
Computaqao 
»Compumix 



•Computer Shopping 
Moore 

•Computerware 
•C.R.T 
• Data Ribbon 
•Hamenqo Video Club 
•"Mikros* 



• Racimec 

• R&T Informatica 
‘Trade Informatica 
•Unitel 

■ Videomatica 




Mo Largo do Machado, junto ao Metro. Aberto de 2. a a sabado. E5TACI0MAMEHT0 PROPRIO. 
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COMPATIVEL com 
IBM PC/XT (*) 




VERSAO I 

2 drives, slims, FD/DD, 
320 kbytes 

VERSAO II 

1 drive FD/DD, 320 kby- 
tes, memoria RAM e Win- 
chester 5/10/15 Mbytes. 






(pregos sob consulta) 



PLACA, 
EXPANSAO 
P/ SP16 



Placa expansSo de 320 kby- 
tes, expandindq ate 640 
kbytes de memoria RAM 
para SP-16. 

Placa de CP/M para SP-16 
com 64 kbytes. Transforma 
restante da memoria em 
RAM DISK. 



COMUNICACAO 



Placa rede de comunicagao 
NCT-7301, para interligar 
vdrios SP-16. 

Placa emuladora de terminal 
IBM 3278/3279 NCT-7101 
PCOX. 

Placa emuladora de terminal 
IBM 3278/3279 NCT-7201 
I RMA. (pregos sob consulta). 



MICROS 



CP-500 022D-M80, 1 drive 
FD/DD, DOS-500, CP/M 80 
colunas. 

CP-500 023D-M80, 2 drives 
FD/DD, DOS-500, CP/M 80 
colunas. 

CP-400 color II 64 kbytes. 
CP-200S, 16 kbytes ( preco s 
sob consulta). 15-31 




(*) IBM e marca registrada da 
International Business Ma- 
chine. 



ASSISTENCIA 
TECNICA 



DIRETO: (Oil) 220-5794 
• Consertos, contrato de ma- 
nutengSo, pegas de reposi- 
gSo (condigSes especiais p/ 
ass. tecnica). 



INTERFACES E 
PERIFERICOS 



Software video texto para 
CP-500. 

Software video texto para 
SP-16. 

Modem EMBRACOM. 
CP-532C (RS232/CP500). 
Serial 300. 

Joystick CP-400. 

Placa CP/M para CP-500 M. 
80 com 128 kbytes RAM. 
Cabos de ligagao micro/im- 
pressora. 



SOFTWARE 



• DATAFLEX: 

— Gerador de banco de dados 
relacional. 

— Mu Iti e mono usuario 8 e 16 
bits. 

— Gera aplicativos como: con- 
trole de estoque, contas a 
pagar e receber, cadastro de 
cliente, mala direta, folha de 
pagamento, etc. 

(Pregos sob consulta) 



• Diskettes 5 1/4" qjfxwwm 
10 unidades FS/DD e FD/ 
DD. 

• Formulario contlnuo 1 via: 

— 80 colunas (milh.). 

- 132 colunas (milh.). 

• Fitas para impressora: P-500, 

P-720, P-740. 

• Mesa para computadores. 

Jj Estabilizadores de tensio: 
0,8 kVA- 1,5 kVA. 



IMPRESSORAS 



• P-500S paralela ou serial 
150 CPS, 80 colunas, carac- 
teres normais, comprimidos 
e expandidos, grafico com- 
patfvel com MX-80. 

OBS.: compatfvel com APPLE, 
EXPERT, HOT BIT, SP-16, etc. 

• P-720 paralela e serial 200 
CPS 132, colunas e compa- 
tfvel com MX- 100. 

• P-740 paralela e serial 400 
CPS, 132 colunas. 

(pregos sob consulta). — « 



REVENDAS 

BAURU-SP ^ 

Microl6gica Tel. (0142)23-6142 
BELO HORIZONTE - MG 
Computron ixTel . (03 1 1 225-3305 
Digilogica Tel. (031 1223-4966 
CAMPINAS -SP 
Soft En Byte Tel. (0192)52-6369 
CAMPO GRANDE - MS 
New Line Tel. (067)382-0682 
CATANDUVA - SP 
Catanduva MaqTe!(0175)22-6167 
CURITIBA -PR 
CSR Tel. (041 1232-1750 

FERNAND0POLIS-SP 
Compshow Tel, (01 74)42-1697 
FORTALEZA - CE 
Siscomp Tel.:(085)244-491 1 

goiAnia-go 

Soft New Tel. (062)224-9322 
GOVERNADOR VALADARES 
Computron Tel. (0332)21-8412 

NATAL - RN 

Maximicros Tel. (084)222-8918 
POQOS DE CALDAS - MG 
Micro Pogos Tel. (035)721-1883 
PORTO ALEGRE - RS 
Hercos Tel.:(0512)25-4923 

RECIFE - PE 

Croma Tel. (081 1325-3493 

RIO DE JANEIRO - RJ 
Sinclair Place Tel, (021 1549-2699 
Sisteco Tel. (021)220-9613 
SBC Micro's Tel, (01 1)448-6234 
SAO PAULO - SP 
Cinbtica Tel. (Oil) 36-6961 

Benny Micro Tel. (01 1 1570-1555 
Bolsa do MicroTel.101 1 193-1 102 
Citty Micros Tels.101 1 1831-0944 
Iguatemicro Tel.:(01 1)81 5-9701 
Garra Tel. (0 1 1 1884-3042 

NC Micro Tel, (01 1)533-4388 
Opus Tel. (01 1)273-5757 
Provac Tel. (01 1)274-5861 
Tropical Tel. (01 1)543-9859 
Si sec Tel. (01 1)283-0853 

Cistec Tel. (011)288-5413 
SOS Comp. Tel. (01 1)826-0466 
SAO VICENTE - SP 
Alta- Re sol. Tel. (0132)67-2496 
TAUBAT6 - SP 
Ensicom Tel. (01 22)33-2944 
SAO CARLOS - SP 
HDG Tel. (0162) 72-2449 
ARACATUBA - SP 
Produza Tel. (0186) 23-0519 
RIBEIRAO PRETO - SP 
Datadados Tel. (016) 635-2331 
UMUARAMA - PR 
CBM Tel. (0446)23-2233 

VITORIA - ES 

Casa dos TelTel. (027)222-501 1^ 
Composoft 222-5758^^.^^^ 

WR ComplO^^^jjj^^PJ 
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TK 3000IIe: caracteristicas 





O TK 30001 1 e, da Microdigital. 



O TK 30001 1 e "Enhanced", 
que foi recentemente langado pela 
Microdigital a 6 compattvel com o 
Apple lie "Enhanced", da Apple 
Computer, possui 64 Kb de RAM 
e 16 de ROM e utiliza o micropro- 
cessador 65C02, que reduz o tem- 
po de execuoao de alguns progra- 
mas. Possui tambOm oito slots, 
sendo sete deles conectores e um 
para encaixe de placas de momb- 
ria e cartSes controladores de pe- 



Informatica 
na Academia 

O Presidents da Acade 
mia Brasileira de Letras, Aus- 
tragOsilo de Atalde, inau- 
gurou no dia 24 de abril o 
Banco de Dados da Acade- 
mia. A idOia de introduzir 
a informdtica na Instituipao 
foi dada palo Professor Ar- 
naldo Niskier, em 1984. 
Pouco depois. o projeto foi 
apresentado a empresa cario- 
ca Tecnosoft, que se encar- 
regou do desenvolvimento 
do sistema. 

O BOA, como 6 chamado 
o banco, foi desenvolvido pa- 
ra um Nexus 1600, da Sco- 
pus. Devido ao grande volu- 
me de dados a ser armeze- 
nado, em torno de 60 Mb, 
foi requisitado a Scopus, em 
carAter especial um disco r(- 
gido do tipo Winchester. 

Na verdade, o Banco da 
Academia A composto por 
dois bancos de dados distin- 
tos: um com informapoes so- 
bre os escritores da lingua 
Portuguese, sua obras, esti- 
los e gSneros literArios- e 
outro formado pelo Vocabu- 
lArio OrtogrAfico e pelo Di- 
cionArio llustrado da Lfngua 
Portuguesa, contendo verbe- 
tes e seus significados. 

Embora ainda nao esteja 
completo, pois o levanta- 
mento de dados requer tern 
po e pessoal disponi'veis, o 
BDA jA estA funcionando, 
Para consultA-lo, o usuArio 
pode ligar para (021) 262- 
1313 ou comparecer a Av. 
Presidente Wilson, 231/2 9 
.indar, Castelo - Rio de Ja- 
neiro. 



rifAricos. Pode ser incorporado 
ao micro uma placa PAL-M,_o 
que torna possfvel a utilizapao 
de um aparelho de televisao co- 
mum, sem qualquer necessidade 
de adaptapao. 

O TK 300011b vem com te- 
clado inteligente, dotado do mi- 
croprocessador Z-80, e pode ser 
reprogramado em atA 512 carac- 
teres. AlAm "disso, possui um 
teclado numArico com 12 teclas, 
prbprio para planilhas eletronicas. 
Quanto aos perifAricos, estao dis- 
ponfveis placas de expansao de 
membria, que jA incorporam a 
possibilidade de aumentar o vi'deo 
para 80 colunas; interface especial 
para impressora, incluindo buffer 
de 16 Kb e interface para atA duas 
unidades de disco flexlvel de 
5 1 /4". Permite tambAm a cone- 
xSo de qualquer placa CP/M 
existente no mercado para a linha 
Apple, alAm de outros cartoes. 

Vale lembrar que os softwares 
para o Apple lie Enhanced ro- 
dam no TK 3000, assim como os 
programas disponi'veis para o anti- 
go Apple II Plus. 

Micropic video 

A Micropic, empresa que ini- 
ciou uma nova fase como fabri- 
cante de hardware, estA lan?ando 
um monitor de video monocro- 
mAtico de 12". O Micropic Vi- 
deo, como A chamado, possui 25 
MHz; controles frontais de verti- 
cal e horizontal, com inverse e A 
totalmente nacional. 

A empresa pretende produzir, 
a partir de 1987, 500 unidades/ 
mAs de monitores, mas tern o 
objetivo de, a mAdio prazo, 
obter de 10 a 15% do mercado 
nacional. 

Outro langamento da Micropic 
A um software especlfico para 
pequenos e mAdios escritbrios de 
advocacia. O software A composto 
por cinco mbdulos: agenda, con- 
tas a pagar, a receber, cartas e 
acompanhamento de processo e 
roda em micros das linhas Apple 
e PC. Cada mbdulo custa 20 
OTN, A' Micropic fica na Av. 
SumarA, 287, SP - Tel.: (011) 
263-8200. 

Feira SENAC 

SerA realizada de 1 a 6 de ju- 
Iho, das 14:00h As 22:00h, a 
III Feira SENAC de InformAtica 
de RibeirSo Preto, na qual vArias 
empresas do setor irao expor e 
vender seus equipamentos e servi- 
pos. 

Paralelo A Feira, tambAm serA 
promovido o IV Simpbsio de In- 
formAtica de Ribeirao Preto, com 
palestras que procurarao atender 
ao interesse de fabricantes, forne- 
cedores e usuArios. O evento acon- 
tecerA no SENAC local, que fica 
A Av. Capitao Salomao, 2133, 
CEP 14100, tels. : (016) 624-2900 
e 624-5449, Ribeirao Preto — SP. 



I Fenasi’ 86 

Inaugurada com a presenpado 
subsecretArio industrial da SEI, 
Leopoldo da Silva Pereira, a I 
Fenasi 86 - Feira Nacional de 
Acessbrios, Suprimentos e Insta- 
lapdes para InformAtica, reuniu 
50 empresas, de 24 a 27 de abril, 
no PalAcio das Convenpdes do 
Anhembi, em Sao Paulo. 

Segundo o presidente da AN- 
FORSAI — AssociapSo Nacional 
»dos Fornecedores de Suprimen- 
tos e Acessbrios para InformAtica 
- SArgio Pelegrino, o setor con- 
grega hoje 143 empresas no pals, 
dentre fabricantes, distribuidores, 
revendedores e representantes, e 
seu crescimento nos ultimos tem- 
pos foi igual ou maior ao da in- 
dustria nacional de computadores 
e perifAricos. 

Entre os lanpamentos, a Bur- 
roughs apresentou, simultanea- 
mente no Brasil, AustrAlia e EU A. 
o BU 8000, equipamento para 
analisar, avaliar e limpar fitas 
magnAticas, com contador do 
erros por trilha e bordas, controla- 
do por microprocessador, com 
duas cabepas, lamina auto-afiAvel, 
tracks em 6250 bpis, e oppao para 
parar os erros, permitindo a reu- 
tilizapao parcial ou total das fitas. 

A Magtec, fabricantede acessb- 
rios, investiu US$ 1.500.00 em 
trAs novos produtos:discosmagnA- 
ticos flexlveis, em todas as ver- 
sdes, tamanhos de 8" a 5 1/4"; 
data cassete digital, e fita magnA- 
tica em versdes de 2.400, 1.200, 
600 e 300 pAs, alAm da de 3.000 
pAs, 600 a mais do que as fitas 
normais. 

A KMP, coligada A Pirelli, 
apresentou cabos para conexao 



Winchester de 3 1 12 ' 

A Elebra deverA colocar no 
mercado ainda em 1986 seu dis- 
co rfgido de 3 1/2" e 10 Mb, 
conhecido como "Projeto Tos- 
tao". A nova linha de winchester 
W300, leves e compactos, a serem 
produzidos na moderna fAbrica, 
inaugurada em janeiro, em Sao 
Paulo, atenderA micros pessoais, 
profissionais ou comerciais, e tam- 
bAm aos portAteis. Antonio Harol- 
do P. Arantes, gerente de produ- 
pao da Area de discos, garante 
que o projeto Elebra conta com 
tecnologia totalmente nacional. 




Os novos discos da Magtic 



em computadores Radiofelx e 
Audioflex, destinado A instalapdes 
em terminals, sistemas de radio- 
comunicapSo, radiodifusSo e tele- 
fonia; e o Flat Cable, para inter- 
ligapao de aparelhos eletrbnicos 
perifAricos para informaflca, 
circuitos e estAgios dentro de um 
mesmo equipamento. 

No stand da Propasa Infor- 
mAtica as novidades foram o 
Inker Plus, recuperador de fitas, 
impressoras matricais para reutili- 
zA-las atA 15 vezes; embalagens co- 
loridas de disquetes, para soparA- 
los por assunto; e o Ergonom, um 
prolongamento da base de micros, 
para usuArios Apple, com local 
para lApis, mAquina de calcular e 
guardar disquetes. 

JA a Mowag apresentou o 
Arkit, primeiro arquivo em apo pa- 
ra disquetes, com trilhos telescb- 
picos, podendo guardar o dobro 
dos fichArios convencionais. 

Participaram da I Fesani'86 
empresas de portes diversos, como 
a IBM, Memorex do Brasil, He- 
lios, Electra, Sysdata, Dynaflex, 
Hytec, Telexpel, Senter, Jel-Print 
e Tex-Print. 



Mais services 

Os assinantes do Telegame, de 
Sao Paulo, jA podem com vArios 
outros servipos. AlAm dos 500 
jogos que jA oferecia, o sistema 
dispoe, entre outros, de tabela 
de reajuste de salArios e aluguAis; 
localizapao dos quiosques de 
bancos 24 horas; tabela de conver- 
sao de cruzeiros para cruzados; 
retrospective dos jogos da loto, 
com os numeros sorteados; loca- 
lizapao dos hospitais e pronto- 
socorros de SP; lista de 150 tele- 
fones uteis e enderepos de res- 
taurantes paulistas. Informapoes » 
pelo tel.: (011) 280-1796. ® 
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Perifericos para MSX Supermicro da Digirede 



Os pianos da Gradients para 
1986 incluem o langamento de 
vArios perifAricos para o Expert, 
conforms afirmou Mauricio Ar- 
ditti, Vice-presidente TAcnico da 
empresa. J4 estA pronto urn mo- 
dem para acesso aoSistema Video- 
texto, atravAs de software em car- 
tucho, que estarA disponfvel no 
mercado, no infcio do segundo 
semestre, disse ele. Mais para o 
final do ano, serA langado um car- 
tSo de 80 colunas. 

A Gradients estA incentivando 
outros fabricantes a produzir e 
colocar no mercado perifAricos 
para o Expert. A Microsol, de 
Fortaleza, por exemplo, langarA 
em breve drives de 5 1 / 4", com 
face simples e capacidade para 
180 Kb; controlador de drives; 
gravador de EPROM; e placa de 
expansao de 80 colunas, e ainda 
estA estudando a viabilidade de 
produzir RAM disk de 256 
Kb. JA a Embracom estA desen- 



Tropic Informatica 

Ricardo Tondowsky e Manoel 
Ribeiro Junior, ex-diretor o ex- 
gerente de vendasda Microdigital, 
respectivamente, inauguraram a 
software-house Tropic Informati- 
cs, que comercializa produtos pa- 
ra o TK90X a MSX com a marca 
Disprosoft. 

A Tropic estA incentivando a 
produgSo de software nacional, 
contratando juvens que desenvol- 
vem programas. Cada software 
levara a marca Disprosoft e o 
nome do seu criador, que rece- 
bera por fita vendida. Quern de- 
sejar se candidatar, deve ligar 
para (011) 265-8516 ou escre- 
ver para a Caixa Postal 16441 
— Sao Paulo. 



volvendo um modem para a li- 
nha MSX. 

Outro projeto da Gradiente 
a a produgao de discos flexi'veis 
de 3 1/2", que ainda deverA ser 
entregue 4 SEI. A maior dificul- 
dade reside na nacionalizaga’o de 
partes mecanicas de precisao, ex- 
plicou Mauricio Arditti, pois o 
projeto prevo inicialmente um 
indice de nacionalizagSo de atA 
70%, e o desejAvel pela SEI 
seria de 100%. 

Caso chegue-se a um acordo, 
os discos para a I inha MSX serao 
fabricados ainda este ano, ou no 
infcio de 1987, para atender aos 
micros da empresa, estimando- 
se uma produgao minima de cer- 
ca de 20% dos Experts vendidos 
mensalmente. Embora a intengSo 
da Gradiente nSo seja a fabricar 
discos para terceiros, nem vendb- 
los em sistema OEM, estA estu- 
dando pedido da Unitron de 
comprA-los e adaptA-los ao Macin- 
tosh. 



Soft 16 bits 



A Real — Soft desenvol- 
veu divers os sistemas aplica- 
tivos para micros IBM-PC de 
16 bits. Entre eles, controls 
de loteamentos, contas a pa- 
gar, a receber, ativo fixo, 
contabilidade, controls de 
processamento de cobrangas 
mercantis, faturamento, fo- 
Iha de pagamento, gestao e 
controls da carteira de pedi- 
dos a controls de performan- 
ce, para corridas de cavalos. 
O onderego da Real - Soft 
A Rua Termbpilas, 462, S5o 
Paulo. CEP 04635. tel.: (011) 
241-1976. 



Ampliando a gama de seus 
produtos. a Digirede, hoje com 
um parque de 1.400 equipamen- 
tos instalados na Area de automa- 
gSo bancAria, langou o sistema 
fnultiusuArio 8000, um supermi- 
cro que suporta art 32 terminais, 
interagindo com sistemas opera- 
cionais CP/Me MS/DOS. 

O sistema multitarefa conta 
com CPU Motorola 68010; clock 
de 10 MHz; processador inteligen- 
te Z-80, com 64 Kb de membria; 
interfaces RS232-C e RS-45; 
dois discos Winchester de 5 1 I A, 
da prbpria Digirede, de art 300 
Mb, formatados em cinco opgoes, 
permitindo conexao de art dois 
discos rfgidos de 5 1 1 A: e sistema 
operacional Digix, versSo Digirede 
do Unix. O equipamento serve 
para aplicagSes nas Areas de indus- 
trias, comArcio e administragao, 



As empresas de informdtica 
marcaram presenga na UD paulis- 
ta deste ano e aproveita- 
ram o evento para mostrar novos 
produtos. A Dynacom, por exem- 
plo. apresentou quatro protbtipos 
do MSX 1.800, embora o langa- 
mento sb esteja previsto para o 
final do ano, ou mesmo infcio 
de 1987. No momento, a Dyna- 
com vem mantendo conversagbes 
com os fabricantes de micros 
da linha MSX — Sharp e Gradien- 
te — para viabilizar uma total 
compatibilidade do aparelho. 

Um forte atrativo do novo 
micro serSo os 100 programas, 
entre jogos e utilitArios, que o 
usuArio receberA gratuitamente, 
ao adquiri-lo. 

Outro equipamento da em- 
presa, o MX 1600 Color, de 64 




O Digirede 8000. 



e a empresa espera vender 200 
unidades este'ano. Os pregos va- 
riant de Cz$ 300 mil a Cz$ 1 
milhao. 



Kb, teve boa recepgao na UD. 
Ele tambbm estA sendo comercia- 
lizado com 100 programas gratui- 
tamente, incluindo editor de 
texto, planilha de cAlculo, contro- 
ls de estoque e outros aplicativos. 

Joa no stand na Dismac, a 
vedete foi a famflia de PCs, cujo 
micro de configuragao mfnima A 
o PC 16, com microprocessador 
Intel 8088; co- processador numA- 
rico Intel 8087, opcional; memb- 
ria RAM de 256 Kb, expandfvel 
art 768 Kb; ROM-BIOS de 8 Kb, 
e art 64 Kb de EPROM; oito 
conectores para placa de expan- 
sao; autofalante com tons de Au- 
dio programAvel por software; e 
caixa com ventilagao, permitin- 
do art quatro expansdes, com 
floppies, winchesters ou fitas, 
Completam a famflia o PCxt e o 
PC MultiusuArio. 



Novidades na UD 



STRINGS 



SP — A Itautec InformAtica 
inaugurou mais uma loja em SSo 
Paulo, na Rua TabapuS, 627, 
Itaim, SSo Paulo. 

RJ — O LTD InformAtica 
promove regularmente cursos de 
treinamento modular em microin- 
formAtica (formagaode analistas), 
programagao e anAlise e projetos 
de sistemas, com opgao de diver- 
sas datas de infcio. Maiores in- 
formagoes A Av. Rio Branco, 
173 - sblj, tel.: (021) 262-9364, 
Centro - R J. 

MG — De 23 a 27 de julho es- 
tarA se realizando no Minascentro, 
em Belo Horizonte, o III INFO- 
RUSO — Encontro Mineirode In- 
formAtica e Feira de InformAtica. 
Informagoes pelo tel.: (031) 225- 
1944; MG, ou telex (031) 6074 
NFCE BR. 

SP — A ABAC - Associagao 
Brasileira de Automagao Comer- 
cial — promoverA, de 7 a 1 1 de 



julho, no PalAcio das Convengoes 
do Anhembi, em Sao Paulo, o 
III Congresso Nacional e III Feira 
Internacional de Automagao Co- 
mercial. Maiores informagoes pelo 
telefone (011) 280-0890. 

RJ — O IBPI criou um progra- 
ms de estAgios, com o objetivo 
de encaminhar seus alunos ao 
mercado de trabalho. As empresas 
interessadas em participar do pro- 
grama podem se cadastrar atravAs 
do telefone (021) 275-2143. 

SP — Jorge Luis dos Santos e 
Paulo Rodrigues Lauand, ex- 
responsAveis pelas Areas de marke- 
ting e tAcnica da Microdigital, 
respectivamente, formaram uma 
nova empresa, a Connectin Tec- 
nologia InformAtica Ltda. 

SP — A Cobra A a Ifder nacio- 
nal de vendas de supermicros, 
com quase 80% do mercado. 
Em 1985, o produto mais vendido 
pela empresa foi o MicrSo Cobra 



480, com cerca de 650 unidades 
comercializadas. 

SP — Nfvio Flores A o novo 
diretor de marketing da Prolbgica. 
Com experiAncia em empresas co- 
mo a Singer e a Quaker, Nfvio 
pretende consolidar uma ponte 
entre o usuArio e a Prolbgica, for- 
talecendo os revend edores em ter- 
mos tAcnicos e comerciais. 

RJ — Na reuniao-almogo, pro- 
movida pela SUCESU, hA cerca de 
trAs semanas, o secretArio da SEI 
Prof. Dbria Porto surpreendeu a 
imprensa ao declarar que a secre- 
tary de informAtica levarA para a 
pauta da reuniao do CONIN ape- 
nas a questao da comercializagao 
do software, enquanto o Ministro 
da CiAncia e Tecnologia Renato 
Archer afirmava, semanas antes, 
em diversas ocasibes, que. a ques- 
tao jurfdica do software seria 
discutida no Ambito do CONIN. 
Ao que parece, os altos escalSes 
da tecnologia de informbtica nao 



estao conseguindo falar a mesma 
lingua. 

RJ — O dr. JosA Maria Sobri- 
nho, que durante trAs anos foi 
presidente da Assessoria Nacio- 
nal e atualmente representava a 
entidade no CONIN — Conselho 
Nacional de InformAtica e Auto- 
magao, foi dispensado da fungao, 
segundo decreto assinado pelo 
presidente JosA Sarney em 02 de 
maio. Agora, Nilton Trama, atual 
presidente da Assespro Nacional, 
passa a exercer a fungao. De fato, 
foi o prbprio Trama que enviou 
telex ao ministro Renato Archer 
pedindo a substituigao de Sobri- 
nho. Tal atitude deixou claro o 
"racha" por que passa a Assespro. 

De um lado, o Rio (102 associa- 
dos) apbia Sobrinho. Sao Paulo 
(78 associados) fecha com Nilton 
Trama. E as regionais. . . uns di- 
zem que se omitiram, enquanto 
outros garantem que aprovaram m 
a medida. SA 
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O APPLE DA DIGITUS 



A DIGITUS langa o DGT-AR um 
microcomputador pessoal totalmente 
compativel em hardware e software com 
a linha APPLE II PLUS e seus similares. 

O DGTAP e um micro versatil, pois, alem 
de Ihe ser util no trabalho, voce podera 
tambem usa-lo no lazer e nos estudos. 

Devido ao grande numero de programas 
desenvolvidos para a linha APPLE, o DGT- 
AP tern ampla aplicagao tanto para as 
pequenas e medias empresas como para 
os executivos e os profissionais liberais. 
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Projetado para atender e acompanhar o 
desenvolvimento do usuario, o DGT-AP 
possui estrutura para aceitar futuras 
expansdes, crescendo de acordo com 
suas necessidades. 

O DGTAP tern todas as caracteristicas 
basicas comuns a um micro da linha 
APPLE com a vantagem de um teclado 
numerico reduzido incorporado a CPU. 

Alem de todas as placas disponiveis para 
expansao, voce tern ainda a garantia da 
tecnologia DIGITUS. 

Conhega o DGTAP nos enderegos abaixo 
e nos revendedores autorizados DIGITUS. 



MATRIZ: Rua GAvea, 150 - Jardim America - Fone: (031) 332.8300 - Telex: 3352 - 30430 - Belo Horizonte - MG 
RIO DE JANEIRO: Rua Barata Ribeiro, 391 si. 404 - Copacabana - Fone: (021) 257.2960 
SAO PAULO: Rua Faxina, 47 - Centro - Fone: (011) 572.0137 







JAPAO: 

O futuro chegou 



O ito de julho de 1853. 0 Como- 
doro Matthew Calbraith Perry, 
no comando de uma poderosa 
frota de guerra ancora na Bafa 
de Toquio e for?a o Jap5o a assinar um 
acordo de relacionamento politico e co- 
mercial com os Estados Unidos, pondo 
fun a dois seculos de isolamento auto- 
imposto do pais asiatico. Em meio as 
conversa?8es, a troca de presentes: arte 
japonesa — lacas, bronzes, porcelanas e 
brocados - por tecnologia americana - 
equipamentos de telegrafia; um modelo 
reduzido de trem a vapor; implementos 
agricolas e armas de fogo. 

Initio dos anos 1980, Detroit, EUA. 
Em meio a uma serie crise economica, 
trabalhadores desempregados da outrora 
pujante industria automobilistica — o 
simbolo por excelencia do American 
Way of Life - destroem a golpes de 
marreta um bonito automove) japones 
em protesto contra a invasao do merca- 
do americano por produtos importados, 
principalmente do Jap3o. 

Habituados a assombrar o mundo 
com o seu poderio industrial e tecnolo- 
gico (fora o economico e militar), os 
norte-americanos come?am agora a ver 
amea9ada sua hegemonia ate no proprio 
mercado interno.e em areas nas quais se 
consideravam praticamente imbativeis. 
0 desafiante e um longfnquo pais orien- 
tal, arrasado e ocupado ao te'rmino da 
Segunda Guerra Mundial e que, em fins 
da decada de 50, tinha a fama de fabri- 
car produtos baratos e de ma qualidade. 
Perplexos, todos se perguntam : como is- 
to aconteceu? 

Industrias estrategicas 

O atual desenvolvimento japones 
n3o e fruto do acaso. Pelo con- 
trario, e resultado de um es- 
for?o planejado e dirigido que 
ja dura mais de 100 anos. De fato, a de- 
monstra^So de forga do Comodoro Per- 
ry serviu para refor9ar entre os niponi- 
cos o sentimento da necessidade de de- 



senvolver industrias estrategicas, tanto 
do ponto de vista militar como do co- 
mercio internacional. Lan9aram-se, en- 
t3o os japoneses, sob a lideran9a da oli- 
garquia Meiji, nesse esfor9o de moderni- 
za93o e expansao com inusitada agressi- 
vidade, o que levou o pais a envolver-se 
numa serie de conflitos comerciais e 
militares (China, 1895; Russia, 1905; 
Coreia e Taiwan, 1911; Mandchuria, 
1931) que culminaram em 1945 com 
os horrores da devasta93o nuclear de 
Hiroshima e Nagasaki. 

A derrota de 1945, porem, pode ser 
considerada em muitos aspectos como 
uma vitoria. - A imposifSo americana 
de desarmamento poupou a na93o imen- 
sos gastos com for9as armadas, permitin- 
do-lhe investir toda a sua energia huma- 
na, tecnica e financeira no desenvolvi- 
mento economico e social. Para se ter 
uma ideia, o Japao gasta hoje somente 
2% do seu or9amento de pesquisa e de- 
senvolvimento com experiencias milita- 
res, contra os 50% gastos pelo EUA. Isso 
faz com que as verbas destinadas a pes- 
quisa civil quase se igualem em ambos 
os pai'ses. 

O MITI 

Q uando se fala em poh'tica in- 
dustrial japonesa, o primeiro 
nome que nos vem a mente e o 
do ja hoje legendario MITI - 
Ministerio do Come'rcio Internacional e 
da Industria. Suas origens remontam ao 
antigo Ministe'rio da Agricultura e Co- 
mercio que, em 1925, dividiu-se, ense- 
jando a cria93o do Ministerio da Indus- 
tria e Comercio. Este, por sua vez, rece- 
beu durante a Segunda Guerra Mundial 
a denomina93o de Ministerio das Muni- 
96es, o qual veio a formar, apos o con- 
flito.o atual MITI. 

Por ocasiao da crise de 1929, que 
ocasionou uma grande turbulencia na 
economia internacional, caracterizada 
sobretudo por um crescente protecionis- 
mo, puseram-se os funciondrios do ex- 



tinto MIC a estudar a situajSo interna e 
externa em busca de solufCes para con- 
tomar as dificuldades, sem, contudo, 
arrogarem para si o monopolio da opi- 
ni3o. Pelo contrario, muito contribuiu 
para a constru93o de uma poh'tica in- 
dustrial a participa93o do Conselho Deli- 
berative de Comercio e Industria, insti- 
tuido pelo MIC e composto por todas as 
for9as representativas da sociedade. 

Dentre os fundona'rios.do MlC.des- 
tacou-se o trabalho de Yoshino Shinji. 
Apos estudar os modelos de racionaliza- 
93o industrial praticados em diversos 
pai'ses, Shinji defendeu o adotado na 
Alemanha por ser este “voltado para a 
inova93o tecnologica nas industrias, para 
a instala93o das mais atualizadas maqui- 
nas e equipamentos e para a eficiencia 
crescente e generalizada”. No piano in- 
temo, Shinji alertou para os riscos da 
concorrencia desenfreada, afirmando 
que ela deveria ser substituida pela co- 
opera93o e que o proposito das ativida- 
des empresariais deveria ser a redU93o 
dos custos, nao o aumento dos lucres. 
Dentre desse pensamento defendia 
Shinji a necessidade de um abrangente 
piano de desenvolvimento o qual, por 
sua vez, pressupunha uma certa dose de 
controle do Estado sobre as atividades 
da iniciativa privada. 

Setores prioritarios 

F oi esse o modelo adotado pelo 
Jap3o para tomar-se competi- 
tivo no mercado internacional: 
tomar os negocios mais produ- 
tivos, conferindo aos seus produtos e 
servi9os maior valor agregado (isto e', 
maior conteudo tecnologico). Para me- 
lhor perseguir esse objetivo, o MITI se- 
lecionou alguns segmentos -inicialmen- 
te, industria pesada e petroquimica; 
apos o choque do petroleo nos anos 70, 
in forma tica e telecomunica96es - como 
prioritarios, direcionando-os atraves de 
uma serie de incentivos e restri9Ces, ma- 
nejados de acordo com a situa93o espe- 
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Conhecido mais pelo seu passado que pelo presente, o Japao mostra hoje, a 
um mundo perplexo, que ja vive no futuro. Num impressionante exemplo 
de esforgo e cooperagao nacionais, este pequeno pais, pobre em recursos 




— este e o mais ambicioso projeto japo- 
nes. Conduzido pela Nippon Telegraph 
and Telephone Corporation e envolven- 
do investimenios da ordem de USS 120 
bilhoes a serem gastos em 15 anos, o 
projeto visa criar uma rede nacional de 
informa9oes que — mediante o uso de 
fibras oticas, transmissao digitalizada, 
dispositivos de reconhecimento e sinte- 
tiza9ao de voz, terminals de video, tec- 
nologia de fac -simile e sate'lites de co- 
inunica93o - interligue todos os lares e 
empresas do pais com serv^os de telefo- 
nia, transmissao de dados, textos, ima- 
gens fixas e moveis (TV, fac -simile) etc. 

Supercomputadores - or9ado em 
USS 300 milhoes, visa pesquisar novos 
dispositivos eletronicos de alta veloci- 
dade (tecnologias de arsenieto de galio, 
jun9oes Josephson e super-lattice) para 
Com rapidez e precisao inigualaveis, o robo da NEC insere chips em placas de circuilo. produzir maquinas como O NEC SX-2, 

que executa 1 GFLOPS (bilhSes de ope- 

cifica a ser atingida. Dessa forma, alguns Projetos nacionais ra9oes de ponto flutuante por segundo). 

setores s3o protegidos por mecanismos Sistema Captain (Character and 

tais como a impos^ao de tarifas e con- ara tomar-se uma sociedade to- Pattern Telephone Access Information 

troles sobre as importa9oes; taxas prefe- talmente informatizada na vira- Network System) - vers3o japonesa do 

renciais; controles sobre o intercambio da do seculo, o Jap3o vem de- videotexto, entrou em opera93o em no- 

com o exterior e limita95es aos investi- ■ senvolvendo uma se'rie de gran- vembro de 1984. Em junho de 1985 

mentos estrangeiros nesses ramos de ati- des projetos nacionais ligados direta ou tinha 7.240 terminals usua'rios em todo 
vidade; subsidios; empre'stimos a juros indiretamente as tecnologias de informa- o pais, sendo 1 1 ,5% residenciais e 88,5% 

reduzidos e auxilio financeiro para pes- tica ou telecomunica90es. Vejamos os institudonais (governo e empresas). Ser- 

quisa e desenvolvimento, alem de sebe- principais. vi9os oferecidos: infoima9oes em geral 

nefidarem com cond^oes espedais de Opto-eletronica — patrocinado pelo sobre lazer, serv^os publicos, tempo e 
deprecia93o e de Ucenciamento de tec- MITI e realizado no centre de pesquisas notidas; intercambio de informa96es 

nologia estrangeira. Ja no direcionamen- da Fujitsu, em Kawasaki, com a partici- em grupos fechados; telecompras, reser- 

to da industria como um todo, o gover- pa93o de cinco outras empresas, o pro- vas de passagens, partidpa93o em enque- 

no fomece e cancela autoriza98es (aqui, jeto envolve investimentos de USS 110 tes, solicita93o de folhetos e catalogos; 

no caso da empresas que nao sigam suas milhoes e visa desenvolver tecnologia de conexSo com outros computadores; pe- 

diretrizes), recompensando as que co- fibras oticas e dos dispositivos opto-ele- quenos calculos, como, por exemplo, 

peram mediante a Ubera9ao de fundos tronicos a elas relacionados. um or9amento famiUar; fomecimento 

govemamentais. Entretanto, o MITI n3o PIPS (Pattern Information Processing de software. 

tern como interferir nos negocios inter- System) - nascido em resposta as difi- VAN (Value-Added Network) - basi- 
nos das empresas privadas. Ele pode in- culdades causadas pela complexa lingua camente definida como uma rede de co- 

centivar ou desestimular certas partici- japonesa para a entrada de dados, este munica93o por pacotes com varias fun- 

pa9oes; obrigar, nunca! projeto conjunto da industria japonesa 98es de servi9o adicionais, a rede VAN 

O que acontece 6 que muitas empre- tern por finalidade aperfei9oar um siste- aplica-se no Jap3o a todas as fases de 

sas - farejando lucres nos promissores ma capaz de reconhecer imagens em ge- comunica98es, processamento de comu- 

segmentos apontados pelo MITI — poem ral, substituindo a entrada de dados via nica98es, processamento de informa- 

deladosuasdiferen9aseembarcam,jun- teclado. 9oes, multi-media (caracteres, audio, 

tos, nos projetos especiais. INS (Information Network System) graficos e figuras). Operada por orgaos m 



da natureza, mas de 
vigorosa cultura, 
prepara-se para ingressar 
no seculo 21 na 
vanguarda mundial do 
avango industrial 
e tecnologico. 
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do governo e firmas particulars (cerca 
de 120, com aproximadamente 100 cir- 
cuitos proprios), tem como usua'rios es- 
sencialmente empresas (comercio, 65%; 
transportes, 15%; Finan^as, 10%;outras, 
10%). Dentre os servifos oferecidos 
constam: encomendas de produtos e avi- 
sos de pagamento; compras, servifos 
bancarios e reservas via computador; 
acesso a bancos de dados; teleprocessa- 
mento. 

CATV (televisSo por cabo) — o pri- 
meiro servi^o foi instalado nos idos de 
1955, na cidade de Ikaho. Hoje operam 
38 mil esta$5es (a maioria de pequeno 
porte), servindo a 4 milhOes 270 mil 
assinantes. Inicialmente dcstinada a su- 
prir as rcgiOes de recep^ao dificil — coi- 
sa muito comum no acidentado territo- 
rio japones tem recebido incentivos 
do governo (meios de transmissao, pro- 
du93o de programas, problemas de 
copyright etc.), devendo ganhar em bre- 
ve grande impulso com o desenvolvi- 
mento de novos satelites de comunica- 
93o e da capacidade de transmissao bi- 
direcional, que acresccntara a vantagem 
de fazer compras e pagamentos alem de 
participar de aulas e outras formas de 
contato comunitario sem sair de casa. 

Satelites de radiodifusao - ao con- 
trario dos satelites de comunica93o, que 
rcquerem centros de recep93o e poste- 
rior transmissao a nivel local, os de ra- 
diodifusao transmitcm diretamente para 
as antenas domesticas de recep93o de 
TV. Por opcrarem em faixas muito altas 
(12,5 a 17,5 GHz), permitcm prestar 
uma serie de novos servujos antes impos- 
siveis nas transmiss8es realizadas nas 
bandas mais estreitas de VHF e UHF; 
transmissao digital, em vez de analogical 
TV de alta resolu93o; teleconferences; 
e mais: dados, software, caracteres, fac- 
simile etc. 

Teletext - espe'cie de videotexto, so 
que transmitido por cmissoras de TV. 
Ofcrcce, entre outras op98es, noticias, 
cota9Scs, infonna90es sobre eventos em 
geral e publicidade. 

Programa espacial — inclui satelites 
(de comunica95es, radiodifusao e explo- 
ra93o cosmica), foguetes lan9adores e 
toda a tecnologia necessaria a essa ativi- 
dade. 

Tecndpolis — mistos de centros de 
pesquisas avan9adas e polos industrials 
de alta tecnologia, essas cidades cientifi- 
cas foram projetadas para atenderem a 
uma dupla finalidade: constituirem-se 
em centros geradores de novas tecnicas, 
ao mesmo tempo em que criam novos 
polos de desenvolvimento no interior, 
aliviando a pressao populacional sobre 
as grandes cidades. Em niimero de dois 
ou tres (fora a cidade de Tsukuba, a 
primeira a se beneficiar desse novo con- 
ceito), as Tecnopolis disporlo de todas 
as facilidades de informatica e telecomu- 
nica9ocs em implanta93o no pais. 



Teletopias - verdadeiras vitrines de 
como sera o Japao no seculo vindouro, 
ir3o constituir-se em 10 cidades-modelo 
totalmente infonnatizadas, onde lares, 
empresas, hospitais e repartees publi- 
cas, recheados com os mais sofisticados 
equipamentos eletronicos, ser3o interli- 
gados entre si (rede INS) e com o resto 
do pais (redes Captain e VAN), permi- 
tindo aos seus moradores, entre outras 
coisas, fazer compras e utilizar serv^os 
bancarios sem sairem de casa (onde seus 
filhos tambem receber3o treinamento 
escolar), alem de terem acesso as infor- 
ma9oes estocadas em gigantescos bancos 
de dados a ni'vel national. As empresas, 
por sua vez, utilizar3o os novos meios 
para fazer negocios, transmits e receber 




No tar do fuluro, um sistema integrado de 
informafdes e controle ambiental. 



dados e graficos, fazer videoconferen- 
cias, alem de disporem de informa95es 
que lhes ajudar3o a gerir os seus assun- 
tos com maior produtividade e eficien- 
cia. 

Esses s3o apenas os projetos de muito 
grande porte. Fora cles, ha uma varieda- 
de de outras iniciativas isoladas ou con- 
juntas levadas a efeito por empresas ou 
laboratories do governo nas 3reas de se- 
micondutores, novos dispositivos eletro- 
nicos para computadores e equipamen- 
tos de telecomunica93es, robotica etc. 

O computador de 5. a geraqao 

D estaque especial merecem os es- 
for90s para construir o compu- 
tador de quinta gera9ao, talvez 
o mais arrojado e ambicioso 
dos projetos japoneses. Iniciado em abril 
de 1982 e com dura93o prevista de dez 
anos.e conduzido pelo ICOT - Institu- 
te of New Generation Computer Tech- 
nology, cspecialmente criado para esse 
fim, alem de contar com a colabora93o 
de diversos laboratories governamentais 
e dos oito maiores grupos empresariais 
japoneses com interesse no setor: Fu- 
jitsu, Hitachi, NEC Corporation, Mitsu- 
bishi, Matsushita, Oki, Sharp e Toshiba. 



Quanto aos recursos envolvidos, o go- 
vemo colocara USS 450 milhQes, inves- 
timento esse que devera ser igualado ou 
ultrapassado pela industria. Na parte de 
recursos humanos, o projeto conta com 
a nata dos pesquisadores do pais. 

Ao contrario dos computadores 
atuais, que processam apenas uma ins- 
tru 9 ao de cada vez e s3o voltados basica- 
mente para a computa93o de numeros, 
as maquinas de quinta gera93o poderao 
processar varias instru93es ao mesmo 
tempo (o que ocasionara um aumento 
drastico na velocidade de execu93o) e 
ser3o essencialmente destinadas ao pro- 
cessamcnto de dados nao-numericos, 
tais como a fala, graficos e imagens. 

As principals tecnologias envolvidas 
s3o a arquitetura de circuitos VLSI 
(que, alem da grande capacidade de pro- 
cessamento e memoria, ja englobarao no 
hardware uma grande parcela de “inteli- 
gentia”), proccssamento paralelo, pro- 
grama93o logica, bases de conhecimen- 
tos centradas em bancos de dados rela- 
cionais, inteligentia artificial e processa- 
mento de imagens. 

Projeto ainda hoje considerado por 
muitos crfticos ocidentais como invid- 
vel, dadas as formiddveis dificuldades 
tecnicas que envolve, o computador de 
quinta gera93o consiste em tres subsiste- 
mas integrados de hardware e software: 
1) Sistema de infcrencia c de resolu93o 
de problemas; 2) Sistema de gerencia- 
mento da base de conhecimentos; 3) In- 
terface inteligente. 

A interface inteligente possibilitard a 
comunica93o homem-maquina (e vice- 
versa) atraves de linguagem natural e 
graficos ou imagens, bem como a inte- 
ra93o com os demais computadores de 
quinta ou outras gera95es. Atraves do 
sistema de infcrencia c resolu93o de pro- 
blemas, o computador poderd responder 
a solicita95cs — mesmo que colocadas 
de maneira pouco precisa — e, a partir 
daf, com base na vasta quantidade de 
informa95es armazenadas nos seus pro- 
prios bancos ou nos de outros computa- 
dores, emitir juizos sobre os assuntos 
em discussao. Ja no gerenciamento da 
base de conhecimentos, o sistema de 
quinta gera93o conseguira compreender 
o conteudo das informa93es' nele arma- 
zenadas, alem de guardd-las, recuperd-las 
e transferi-las para outros computadores 
nos quais, por sua vez, ira procurar as 
informa93es de que n3o dispuser em 
seus proprios bancos. E tambem nesse 
subsistema que estar3o localizadas as 
fun 9 oes de auto-aprendizado,denomina- 
das de aquisi 9 ao semi-automatizada de 
conhecimento. 

Para fazer tudo isso, sera preciso mui- 
ta potentia e tecnologia. De fato,os nu- 
meros envolvidos no desempenho dessas 
maquinas s3o imensos, se comparados 
com os padr5es atuais. A maquina de 
inferencia, por exemplo, devera ser ca- 
paz de realizar ate' 1 CLIPS (um bilhao 
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memoria ROM passou de 32 Kb para 48 
Kb, ocorrendo o mesmo com o RAM: 
64 Kb, standard. 



Na foto, uma fdbrica de placas de circuitos para televisao totalmente automatizada. 



de inferencias logicas por segundo, sen- 
do que 1 LIP corresponde a entre 100 e 
1000 instni93es dos sistemas convencio- 
nais por segundo). Na base de conheci- 
mentos, o computador tera que locali- 
zar e retirar, em questao de segundos, 
uma dentre ate' 1000 Gigabytes (um 
trilhao de bytes) de informa93es arma- 
zenadas. E a interface inteligente sera 
projetada para reconhecer — com um 
l'ndice de 95% de acerto — um vocabu- 
lario de ate 50 mil palavras e armazenar 
ate' 10 mil graficos ou imagens. Tais fa- 
9anhas estarao a cargo de um sofistica- 
di'ssimo software baseado em linguagens 
de inteligentia artificial, como o Prolog, 
e circuitos VLSI de altissimadensidade, 
minusculos gigantes que reunem ate 10 
milhSes de componentes numa linica 
pastilha. 



O padrao MSX 

O s microcomputadores, conheci- 
dos como micom, somente ga- 
nharam popularidade no Japao 
de pouco mais de dois anos pa- 
ra ca. O atraso, porem, foi compensado 
por um vertiginoso crescimento do mer- 
cado. Ja em meados de 1984, o Clube 
de Microcomputadores do Japao tinha 
10 mil associados, um centra de compu- 
ta9ao em Toquio e 28 filiais espalhadas 
pelo pais. Tambe'm nessa epoca, havia, 
pelo menos uns 30 modelos de micros 
de variados portes, todos com uma di- 
versidade de perife'ricos. E tambe'm aqui 
o Japao inovava com o padr3o MSX. 

Fruto de um projeto conjunto entre 
a Microsoft (EUA) e a ASCII (japonesa), 
o MSX alcan9ou desde o seu lan9amen- 
to, em maio de 1983, grande sucesso no 
Jap3o. No exterior, entretanto, a recep- 
tividade foi bem modesta, sobretudo 
nos EUA, pois haviam muitas duvidas 
.sobre o acerto do novo padr3o e suas 
possibilidades de se impor no mercado 
international, ja amplamente dominado 
pelas maquinas americanas. 

Dentre as restri9oes apresentadas nes- 
se primeira momento figuravam o uso 
de cartuchos (que, por seu alto custo, 
desestimulariam os produtores de soft- 
ware), diferen9as nos tipos de conecto- 
res entre as diversas marcas (o que res- 



tringiria a compatibilidade) e a enfase 
em jogos. 

Ja os defensores do MSX enfatizavam 
que por serem os fabricantes desses apa- 
relhos tambe'm consagrados produtores 
de video e audio, tinham condi96es de 
— ao contrario das empresas tradicionais 
de computadores - fomecer toda uma 
gama de perifericos (como o que permi- 
te o uso interativo de videodisco) capa- 
zes de estender as fronteiras de uso des- 
sas maquinas. Quanto ao software em 
cartuchos, argumentavam serem esses 
mais seguros contra a pirataria (bom pa- 
ra as software-houses) e lembravam que 
o MSX tambe'm poderia usar disquetes. 
Para completar, sustentavam que o novo 
padrao seria em breve bastante conheci- 
do e utilizado porquanto quern apren- 
desse a lidar com um modelo, estaria au- 
tomaticamente apto a operar todos os 
demais. 

Nessa polemica, ainda e cedo para 
apontar, com absoluta seguran9a, quern 
saira vencedor. N3o obstante, a penetra- 
9ao que o MSX vem alcan9ando, no Ja- 
pao e na Europa, sugere prognosticos 
bastante otimistas para o exito dessa no- 
va familia de computadores. Em pouco 
mais de dois anos, ja foram vendidos 
mais de um milhSo de aparelhos em to- 
do o mundo e o equipamento ja entrou 
em sua segunda gera93o - o MSX 2.0. - 
que traz uma se'rie de inova95es sem al- 
terar, contudo, a compatibilidade. 

Gra9as ao novo chip de video, a tela 
de 80 colunas agora e standard. O nume- 
ro de modos graficos passou de quatro 
para 10; a resolu93o maxima, de 256 x 
192 para 512 x 424 pontos; o total de 
cores dispom'veis de 16 para 256; e onu- 
mero de sprites de quatro para oito. O 
novo chip tambem tem interface para si- 
nais extemos de video e disp6e de am- 
plos recursos de ed^ao de imagem. A 
memoria independente de video cresceu 
de 16 Kb para 128 Kb. 

Na area de som, podera o usuario, 
optionalmente, dispor de um novo chip 
que amplia dos atuais tres para nove o 
niimero de canais de audio, permitin- 
do obter musica em total polifonia, 
alem de um sem-numero de efeitos so- 
noros. E para acomodar o novo BASIC, 
mais poderoso, com novos comandos, a 



Japan Inc. 

O grau de coordena93o com que 
este pais se movimenta em di- 
re93o a objetivos definidos ja 
lhe valeu, por parte dos estupe- 
fatos criticos ocidentais, a denomina93o 
de Japan Inc. De fato, as causas do de- 
senvolvimento japones escapam a todos 
os padroes conhetidos no otidente e so 
podem ser devidamente compreendidas 
quando examinadas a luz da evolu93o 
historica e das conduces peculiares que 
cercam a realidade japonesa. 

Tendo que abrigar uma popula93o su- 
perior a brasileira (hoje por volta dos 
128 milh3es de habitantes) num territo- 
rio bastante reduzido (3 1 7 mil 708 Km J , 
ou seja, pouco menos que os estados de 
Mato Grosso do Sul e Alagoas reunidos), 
acidentado (um arquipelago com quatro 
ilhas principals e mais de tres mil ilhas 
menores, sendo que quatro quintos da 
superficie s3o formados por colinas e 
montanhas, muitas delas vulc3es extin- 
tos ou em atividade), com poucas terras 
araveis e aguda carencia de recursos na- 
tural, o Jap3o sempre teve no trabalho 
coeso e harmonico do seu povo a base 
de sua sobreviventia, o que contribuiu 
para solidificar o n'gido esquema hierar- 
quico que ate hoje predomina. 

Assim como os samurais dedicavam 
suas existencias ao servi9o para um se- 
nhor, tambe'm o trabalhador moderno 
confia sua vida profissional (e, em gran- 
de parte, seus assuntos pessoais) a uma 
empresa, a qual servird com o melhor 
dos seus conhecimentos e esfor90S ate 
o momento da aposentadoria. Em retri- 
bui9ao, sera orientado, protegido, ouvi- 
do e respeitado, recebendo ainda uma 
serie de beneficios materials que in- 
cluem participa93o nos lucros propor- 
cional a produtividade alcan9ada pela 
empresa. Em tal sistema de rela95es, a 
troca de emprego movida pelo interesse 
pessoal e' considerada uma traifSo pela 
empresa e uma loucura pelos familia- 
res e amigos. Alem disso, como e de cos- 
tume todos ingressarem nas enpresas nos 
cargos mais baixos, para irem ascenden- 
do gradativamente, e muito dificil ir 
para outra firma com o mesmo cargo e 
salario do emprego anterior. 

A empresa, o trabalho, constituem o 
centra da vida individual e a fonte da 
realiza9ao pessoal, com a preocupa93o 
de trabalhar em determinada empresa os 
jovens japoneses enfrentam, anos a fio, 
o rigorosissimo sistema educational do 
pais. 

Desde que ingressa na empresa, esta- 
belece-se logo um relation amento muito 
estreito entre o individuo e a organiza- 
9ao. De fato, em todos os niveis o fun- 
cionario e chamado a participar com sua m 



MICRO SISTEMAS, junho/86 



25 




JAPAO: O FUTURO CHEGOU 



V 



A SB/DADOS coloca a disposigao de 
executivos e profissionais em geral uma 
bateria de Aplicagoes desenvolvidas em 
Lotus 1.2.3 e DBase/lll especificamente 
para areas administrativas e financeiras, 
tais como: 



Faturamento - Escala de Otimizagao - 

Folha de Pagamento 

Controle de Estoque - Programagao de 
Produgao 

_ B^Curva de Custos - Inventario Diario - 
Curva ABC de Estoque, etc. 



m 


INSCRIQOES COM Sr. Carlos Raso - Pelo 




BS 


Tel.: 881-2227 






PROGRAM AQAO PARA 






MAIO E JUNHO 


BJ 




TREINAMENTO PASSO A 






PASSO P 


p — 




• Trabalhando com DBase/ll 







12a16/maio - 02 a 06/junho - 20h 






• Desenvolvendo com DBase/lll 






05a09/maio - 16a20/junho - 20h 






• Redigindo com Wordstar 






12 a 16/maio - 09 a 13/junho - 20h 






• Redigindo com Word 






26 a 28/maio - 02 a 06/junho - 20h 






• Integrando com Lotus 1.2.3 


— 




05 a 09/maio - 02 a 06/junho - 20h 







• Como operar o Supercalc III 






05 a 09/maio - 16a20/junho - 20h 






TREINAMENTO AVANQADO 


i= 




• DBase/ll para Programadores 


— 




12a06/maio - 09 a 13/junho - 24h 






• DBase/lll para Analistas 






19a23/maio - 23 a 27/junho - 24h 


— 




• Lotus 1.2.3 para Usuarios 






19a23/maio - 09 a 13/junho - 20h 






FORNECEMOS: 


i- 




• Material didatico "Quik Reference” 


— 




• 10 micros PC IBM 







• 1 telao 52" 






• Flip chart - lousa japonesa 






• Retro 






FORMA DE PAGAMENTO: 


lz 



» 50% na matricula e 50% no 1.° dia. 




p »£co^ 



If SISTEmflS DE BANCO DE DADOS 

R. Groenlandia, 1750 - J Europa - CEP 01434 

Tel.: (011)881-4599 

Sao Paulo - SP 



opinilo que, ao ser considerada, mesmo 
se nao plenamente acatada, faz o indi- 
vi'duo identiflcar-se com o grupo do 
qual participa. 

A atitude de consenso e que orienta 
o processo decisorio no Jap3o. Ensinado 
desde crian?a a comportar-se de modo a 
n3o trazer vergonha e desgraga para si, 
sua famflia, empresa ou qualquer outro 
grupo ao qual venha a pertencer, o japo- 
nes aprende a considerar as opiniSes das 
outras pessoas, aceitando a posi$3o pre- 
dominante. 

Os amigos s3o os colegas de trabalho 
e o chefe, um segundo pai. A rela^So 
chefe-subordinado e t3o forte que che- 
ga a extremos de haver casamentos ar- 
ranjados pelo proprio patrSo, para que o 
seu subordinado n3o se tome um soltei- 
r3o. 

Esse fato evoca uma observa93o so- 
bre a posig5o da mulher no Jap3o. O 
Jap3o e uma sociedade de homens na 



qual a mulher tem um papel bastante 
definido. E ela a responsavel pela cria- 
?3o dos filhos, pela gerencia do lar. O 
homem prove o sustento da famflia, e e 
dele que emanam todas as ordens. Ele 
tem sua vida particular, seus “amigos de 
sake” e um assunto predileto : o trabalho . 



Obstaculos futuros 

U m pais que n3o renega a tradi- 
?3o, mas que a ela n3o se ape- 
ga. Ao contrfrio de outros po- 
vos os quais, fascinados por um 
glorioso passado, voltaram as costas para 
o futuro, congelando-se no tempo, o Ja- 
p3o tem a capacidade de respeitar costu- 
mes milenares ao mesmo tempo em que 
nutre profundo entusiasmo pela renova- 
?So a cada dia, num esfor?o constante 
para antecipar o futuro. O gosto pela 
tecnologia e a busca do conhecimento 
s5o caracteristicas do japones. 



A reaqao americana 



£ intengao declarada dos japoneses do- 
minarem o mere ado mundial de informdlica 
nos anos 90. Os americanos. vendo rompida 
sua hegemonia jd em diversos mercados, co- 
mo o de memdrias RAM. e lendo ainda viva 
na memdria a crise que balangara sua indtls- 
Iria automobilistica em 1979-1980 ("Lem- 
bre-se de Detroit ", era o grito de guerra que 
ecoava em 1982 na area de informdtica) , 
uniram-se. com o auxflio do govento, para 
fazer j, rente d nova amea(a. 

A Associacdo da lndtlstria de Semicon- 
dutores - SIA, que congrega produ tores do 
Vale do Siltcio e outras regioes, langou-se 
num projeto cooperativo de pesquisa que 
envolvia gastos anuais de USS 100 milhdes, 
enquanto trabalhos semelhantes se intensi- 
ficaram nos laboratdrios de diversas univer- 
sidades. empresas e centres de pesquisa. Em 
todos os casos, dois objetivos comuns: neu- 
tralizar a vantagem japonesa de baixo custo 
e alta qualidade e manter a dianteira mun- 
dial da inovagao tecnoldgica. 

No primeiro caso, havia que veneer uma 
tradigdo que particulariza o prdprio proces- 
so de desenvolvimento tecnoldgico em am- 
bos os paises. Nos EDA, a tecnologia desen- 
volveu-se primordialmente em fungdo das 
necessidades de defesa, o que tomava o pro- 
blema do custo de importance secunddrio. 
Jd no Japdo, o progresso tecnico, sobretudo 
em microeletrdnica, ocorreu em fungdo da 
inebistria de eletrdnica de consumo, onde os 
fatores de baixo custo e elevada miniaturi- 
zagdo eram mandatdrios. 

Seguindo o caminho trilhado pelos japo- 
neses. os americanos comegaram a esforgar- 
se para reduzir estoques, aumentar a quali- 
dade dos produtos e diminuir os custos de 
produfdo, alem de investirem na modemi- 
zagao de suas fabricas. A IBM, por exemplo, 
entre 1979 e 1984, investiu USS 11 bilhdes 
em equipamentos e instalagdes industrials. 
Quanto ao esforgo para manter a lideranga 
tecnoldgica, novamente a Gigante Azul fala 
por seu pais: USS 13 bilhdes investidos em 
pesquisa e desenvolvimento no mesmo pe- 
riodo. A industria em geral tambem passou 
a beneficiar-se de uma confianga maior dos 
investidores, recebendo a mais gorda fatia 
dos USS 10 bilhdes investidos no mercado 
como capital de risco entre 1979 e 1 984. 

Num pais que nao reluta em gastar di- 



nheiro quart do o assunto em pauta e a segu- 
ran(a nacional, o Departamento de Defesa 
tem tido um papel de destaque na condu- 
(do dessa cruzada tecnoldgica. 

Recursos do Department of Defense, por 
exemplo, financiam USS 450 milhdes para 
o desenvolvimento da nova geracao de semi- 
condutores VHS1C - Circuito lntegrado de 
Muito Alta Velocidade. Tambem com ver- 
bas da defesa, a industria americana procura 
descobrir novas tecnologias de fabrica(do, 
at raves do projeto 1CAM. Enquanto isso, a 
agenda de pesquisas do Departamento, a 
DARPA - Defense Advanced Research 
Protects Agency, investe USS 500 milhdes 
no desenvolvimento de supercompu tad ores e 
USS 100 milhdes na tecnologia de semicon- 
dutores d base de arsenieto de gdlio. E o po- 
lemic to projeto "Guerra nas Estrelas", con- 
forme jd apontaram diversos analistas, nSo 
visa taosomente neutralizar os missels so- 
vieticos Id no espa(o exterior, mas tambim 
a invasdo dos computadores e outros produ- 
tos japoneses aqui na Terra. 

Tambem para incenlivar a indtlstria lo- 
cal, o Departamento de Defesa lan(a moo de 
outra arma poderosa: o paquidermico poder 
de compra do govemo. Os gastos com a 
aquisigao de componentes eletrdnicos no 
mercado intemo deverdo aumentar dos 
USS 4.8 bilhdes de 1983 para USS 13 J bi- 
lhdes em 1987. Com isso, muitos dos prin- 
cipals produtores americanos - como a Te- 
xas Instruments - jd devem mais da metade 
dos seus ganhos as vendas para o govemo fe- 
deral. 

O Departamento de Defesa, no entanto, 
nao e o unico orgoo do govemo americano 
empenhado na guerra Santa aos japoneses. O 
Departamento de Justiga, jd em 1982, abriu 
processo contra as seis maiores empresas ni- 
ponicas por prdticas predatdrias de pregos 
no mercado de semicondutores. O Departa- 
mento de Comdrcio, por sua vez, vigia de 
perto os passos dos fomecedores japoneses 
de equipamentos de telecomunicagdes, com 
vistas a enquadrd-los nas leis anti-dumping. 
E o FBI monta seguidas armadilhas e caga 
implacavelmente os envolvidos em casos de 
espionagem industrial, o que jd rendeu re- 
cent emente um mmoroso e humilhante pro- 
cesso contra a Hitachi, flagrada numa ten- 
tativa de obter segredos da IBM. 
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O Sistema de Teleconference da Fujitsu permite que seus funciondrios, de diversos pontos do 
pais, participem de uma reuniao como se estivessem na mesma sala. 



0 Jap3o — e, principalmente, Toquio 
— respira tecnologia. N3o so nas fre- 
qiientadissimas lojas do distrito de Aki- 
habara, onde se acha tudo de eletroni- 
ca, mas nos servi$os publicos de trans- 
portes (como o trem automdtico, sem 
maquinista, ou o famoso trem-bala), co- 
rn unica90es (diversas redes, com uma va- 
riedade de serv^os) e outros. Esse “espl- 
rito tecnologico” tambdm esta presente 
nas portas do comercio (em sua maioria 
automaticas, muitas delas saudando os 
fregueses na entrada e na safda com 
uma voz feminina digitalizada), nos cai- 
xas automaticos dos bancos (em cujos 
videos uma figura de mulher faz a tradi- 
cional curvatura de agradecimento), ou 
nos robos, simbolo de futuro e mascote 
dos anos 80, como o Ki-ku-zo, robozi- 
nho de USS 50 que pode ser treinado 
pela voz do dono para andar, pegar e de- 
positar pequenos objetos. 

Esse avanijo tecnoldgico acelerado, 
essa busca de uma crescente qualidade e 
aperfei9oamento n3o s3o simples mani- 
festa93o de vaidade ou ambi95o. Consti- 
tue-se, antes, numa questSo de sobrevi- 
vencia nacional no seculo que em breve 
se inicia. Os japoneses sabem muito bem 
que — avaliadas suas carencias territo- 
riais e de recursos naturais - para per- 
manecerem competitivos no contexto 
mundial tem que ser extremamente pro- 
dutivos e competentes em todos os se- 
tores. 

Viabilizando o computador de quinta 
gera93o, e tomando-o acessfvel a amplos 
segmentos da sociedade (ao oferece-lo, 
conforme planejado, em versOes de pe- 
queno porte e com a possibilidade de 
operar conectado a grandes redes de in- 
forma95es), estar3o os japoneses dispon- 
do de um instrumento poderoso de evo- 
lu93o social, economica e cultural, ins- 
trumento esse capaz de proporcionar 
novos nlveis de eficiencia, mesmo em 
atividades onde o aumento dos Indices 
de produtividade parecia j3 esgotado, 
como e o caso das industrias primarias 
(como agriculture e pesca) e tercidrias 
(servi9os e administra93o em geral). 
Tambem na area industrial, os produtos 
japoneses — projetados, fabricados e co- 
mercializados com o auxflio dessas no- 



vas ferramentas - apresentar3o uma po- 
si93o quase imbatlvel em termos de 
aperfei9oamento, qualidade e pre9o. 

No futuro do Jap3o, entretanto, nem 
tudo s3o rosas, restando ainda alguns 
problemas cruciais a solucionar. Um de- 
les refere-se a pesquisa de ciencia basica 
ue tem sido seguidamente negligencia- 
a em favor da tecnologia aplicada. Ha- 
bituados a obter licenciamentos de pa- 
tentes e know-how dos paises ociden- 
tais, os japoneses contain agora a ver 
barrado o seu acesso as descobertas mais 
recentes. 

Assim, para manter -se atualizado em 
areas como a aeroespacial, novos mate- 
riais, biotecnologia, ciencia da computa- 
93o e microeletronica, os japoneses es- 
tSo desenvolvcndo uma serie de esfor9os 
que incluem o estabelecimento de cen- 
tros de pesquisas no exterior, o incenti- 
ve 3 pesquisa b3sica nas industrias, o au- 
mento da coopera93o entre a industria 
e a universidade e, nesta, procurando 
amenizar o rlgido sistema hierarquico 
que limita a atua95o dos cientistas mais 
jovens. 

No comercio intemacional, o desafio 
e o crescente protecionismo dos paises 
desenvolvidos e a concorrencia dos no- 
vos paises industrializados, principal- 
mente da Asia (Coreia do Sul, Formosa, 
Hong-Kong e Singapura) que, com cres- 
cente tecnologia e baixos salarios, come- 
9am a amea9ar os produtos japoneses 
em muitos mercados. 

O JapSo, porem,j3 provou em muitas 
ocasioes a sua capacidade de transfor- 
mer dificuldades em vantagens e n3o se- 
ra surpresa se essas nuvens que ora tur- 
vam o horizonte niponico venham a for- 
necer o estlmulo a busca de solu96es 
que fa9am brilhar, como nunca, o sol 
nascente. 

m 

• Agradecemos a colaboragao do Prof. Ant6- 
nio Costa, do. Dr. Newton Silva (IDORT), do 
Sr. Kiyoshi Onishi (JETRO-Rio) ede Luciana 
TeixeiradaCunha (Prodigito Processamento de 
Dados) que muito nos auxiliaram com os seus 
depoimentos e ponderagoes e com o forneci- 
mento de material atualizado sobre o Japao. 



Reportagem de Ricardo Inojosa 



i||j|opplc 

no PDDRES5 vocg cJcvorci 
qualquer tipo de i# 

Exclusivo metodo de ensino 
UIDIiOTIEnCH que se utilize dci 
mais moderna tecnica VISUAL 
0 video-cassete. 

Edigao microcomputarizada. 
Curso de BASIC TOTAL, e de 
APLICATIVOS apple 
TURMAS ESPECIAIS 
PARA EMPRESAS 
FAQA SUA RESERVA JA PELOS 
TELEF0NES: 

Oil 211-5348 fi 011 212-0370 
ODDRESS 

Video 

Computer 

Connection 

finnlfi* ,n:, ' c,, •■BBiHtiada opple ohpu 1 :im 



Rua Natingui, 1 199 

CEP 05543 - Sao Paulo - SP 

Alto dos Pinheiros 




Ap6s 5 anos em SSo Paulo 
agora tambem no 
Rio de Janeiro 



— Formularios continuos 

— Fitas para impressoras 

— Diskettes, mini diskettes 

— Etiquetas auto-ad esivas 

— Arquivos para diskettes 

— Streamer 5, 7, 20 e 190 mb 

— Fitas magneticas 

— Pastas para formularios 



PRACPD 

Suprimentos para Processamento 
de Dados Ltda. 

Rio de Janeiro (021) 232-6179 
Sao Paulo (011) *263-6644 
Telex (011) 38045 PRACPD Br 
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Converter uma saida do modo serial para o paralelo ou 
duplica-la e um recurso indispensdvel para quem deseja 
usar uma impressora paralela.Veja aqui esses acessorios: 
o conversor serial paralelo e o comutador de saida serial. 



Conversor serial paralelo 




Nome: Conversor serial /parale- 
lo 

Comutador de saida serial 
Linha: Diversas, desde que 
possuam saida serial 
Pabricante: Micro Equipamen- 
tos Produtos & Proi. Ele- 



trdnicos Ltda. 

Endereco: Rua Pedro Tetxei- 
ras, 13 

CEP 04530 - Sdo Paulo-SP 
Telefone: (Oil) 533-2326 
Prego: Conversor CzS 2.100.00 
Comutador CzS 290,00 



Q uantas vezes voce ja deve ter 
se queixado do seu micro 
TRS-Color por ele n3o ter 
uma saida para impressora paralela? 
Muitas, temos certeza. Nos, pelo menos, 
sentimos muito esta falta cm nosso 
trabalho, dentro do CPD de MS, mas 
isto ja e passado, pois recebemos para 
andlise em nosso centra de processa- 
mento um dos produtos da firma Micro 
Equipamentos, que resolve este proble- 
ma. 0 conversor serial paralelo e um 
equipamento que converte o sinal de 
uma saida serial para um 
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> SOFTWARE PARA CP 400 ECOMPATiVEIS 



APLICATIVOS: Processador de Textos 

PPTEXTO c/ acentuagSo em porlugues, Plani- 
Ihas Eletronicas, Bancos de Dados, Pacotes In- 
logrados. 

UTILITARIOS: Editor/ Assembler, Expansor 
de Tela, Supertec, Compiladores, Copiadores. 
Etc. 

GRAFICOS: DUMP P-500. Esquemas Eletroni- 
cos, Bjork Blocks, Comerciais, Graphicom e 
outros. 

LINGUAGENS: LOGO em portugu&s, PILOT 
para professores e uso didatico, PASCAL, 
CBasic. 

JOGOS: Muitos titulos para mencionar aquil 
Nossos catalogos mostram as telas dos jogos. 
Temos jogos exclusivos. Escolha melhor na 

Peek 8 Poke I 

SOFTWARE PARA CP 500 1 CP 300 

— Processador de textos PPTEXT 500 DISCO 
cl acentuapao. 

— Planilha Eletronica CALC-300. Unica em Z- 
80 para versao K-7. 

— Utilitarios copiadores para fita e disco. 

— Editor/ Assembler, monitor MACMON e tu- 
tor de linguagem de maquina. Em fita ou disco. 
Aprenda Z-80! 

— Compilador ZBasic. Produz codigo objeto 
com rapidez. 

SOFTWARE PARA LINHA~MSX~ 

Revendemos cartuchos e fitas cl os melhores 
prefos. Desenvolvemos titulos prdprios. Entre 
emcontato. 

A PEEK & POKE demonstra, garante e da su- 
porte permanente a seus programas. Venha 
conhece-los ou solicits cat£logo completo para 
o seu equipamento. 



PEEK & POKE Mlcrocomputacfloe Com6rcio Ltda 
Av Brig. Faria Uma. 1664 Conj. 1102 
01452 Sflo Paulo SP Fone (011)813 3277 



sinal paralelo (tal 
qual indica o no- 
me), e sua aplica- 
g3o pode ser es- 
tendida a mo- 
dems, impressoras 
e outros periferi- 
cos afins. 

O equipamen- 
to recebido em 
nosso CPD foi 
testado com su- 
cesso em um mi- 
cro CP 400 co- 
nectado a uma 
impressora Gra- 
fix, e o linico in- 
conveniente que 
apresentou foi a 
necessidade de 
mexer em um dos 
dip switch da im- 
pressora, pois o 
CP 400 mandava 
todas as linhas 
de texto impres- 
sas acompanhadas de um line feed, o 
que causa va espacejamento duplo entre 
as linhas. Esta necessidade, porem, surgiu 
porque em nosso centra usamos a im- 
pressora em diversos equipamentos, e 
cada qual utiliza uma configura$ao dife- 
rente de impressSo; a chave que regula 
o line feed na Grafix e a de niimero 5 do 
dip 1. 

Nos testes efetuados, o periferico re- 
velou-se bastante eficaz, pois imprimiu 
listagens, textos e graficos em alta-reso- 
lu?5o sem apresentar falhas, demons- 
trando ainda ser um equipamento indis- 
pensavel aos usuarios de micros com 
saida serial e que utilizam impressoras, 
permitindo liberdade de uso tanto de 
impressoras paralelas quanto seriais. 

0 conversor e comercializado acondi- 
cionado em embalagem lacrada conten- 
do uma fonte de 9 V para a alimentag3o 
do mesmo e um folheto com as instru- 
?6es de uso que s3o bem simples. Para 
a convers5o, o equipamento possui ajus- 



te de velocidade entre 300 e 9600 
bauds, e ja vem com os cabos de liga?ao 
entre o micro e a impressora, possuindo 
ainda uma segunda saida serial que per- 
mite, por chavelamento, ligar o micro 
diretamente a outro periferico sem ne- 
cessidade de desligar os cabos. 

Alem do conversor, a Micro Equipa- 
mentos fabrica diversos outros produtos 
de hardware e software, sendo que um 
deles e bem semelhante ao comversor. 
Trata-se de um comutador de saida se- 
rial que permite a duplica93o da saida 
serial de um micro por chaveamento, 
posssibilitando ligar o equipamento a di- 
versos perifericos sem necessidade de Cl- 
ear trocando cabos. Ambos os produtos 
podem ser encontrados no Rio de Janei- 
ro, na Mikro’s que fica na Rua do Cate- 
te,311,lojas 1 1 8 e 1 19 (Infoshopping); 
em S3o Paulo, nas lojas Cinotica, Fil- 
cres, City Micros e Claritron ou direta- 
mente atraves do fabricante. Anilise 
feita por Divino C. R. Leit3o. 
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INFORMRUCn 

os segredos do software e hardware, agora ao seu alcance! 

PflOGRflM€ O S€U FUTURO, S€M SOIR D€ CRSfl, COM OS CURSOS DC INFORM RTICR Dfi OCClDCNTfit SCHOOLS 



1 — PROGRAM AG AO BASIC - Ondc voce aprende a 
linguagem para a claborat;3o dos scus prdprios programas. 
a nivel pcssoal ou profissional! Software de base ensinado 
cm li^des objetivas c praticas. 



2 — PROGRAMAGAO COBOL - A verdadcira lingua- 
gem profissional, largamenre uiilizada no C^omcrcio, 
Industria, instituiijdcs financeiras c grande niimero de 
outras atividadcs! 





1 — MICROPROCIiSS ADORES - O hardware cm scus 
aspcctos tccnicos c praticos. Projeto c manurencao de 
microcompuiadorcs, ensinados desde a Eletronica Basica, 
ate a Eletronica Digital, aplicadas aos mais avangadps 
sistemas de raicroproccssamcnto. 

OCCIDENTAL SCHOOLS 

cursos tecnicos especializados 

Al. Kibeiro da Silva. 700 CEP 01217 SSo Paulo SP 
Telefone: (011) 826-2700 
A 

OCCIDENTAL SCHOOLS so r 

CAIXA POSTAL 30 663 
01051 SAO PAULO SP 

Sim. des«|o lecebei. graluilamonio. o cautlogo ilustrado do curso de 

□ programagao BASIC D andlise de sistemas 

D programaefio COBOL □ microprocessadores 

Nome 

Endereco 



Bairro 

CEP Cidade 

Estado 



^ Solicite catalogo 

GRATIS ilustrado sem 

compromisso! 



3 — ANAI.ISE DE SISTEMAS - Toda a tccnica da uti- 
lizagao dos computadorcs na solugao c dctccgao de 
problcmas empresariais. Um dos mais promissorcs 
campos da INFORMATICA. 



KIT DE MICflOCOMPUTRDOR Z80 







O CS I OOOAP da Cetus e o seu micro formam o principio basico da 
Rede Local Cetus. O CS I OOOAP e a Placa Basica dc Comunjca(;ao 
para micros de 8 bitscompativeis com Apple, Para formar a rede, cada 
micro, com a placa, e interligado a discos Winchester, impressoras 
e outros recursos disponivcis. Os scus micros compartilham os 
recursos, formando urn sistema de grande potencial com um pequeno 
investimento. 

A sua Rede Local Cetus pode ser formada por ate 255 
equipamentos. E pode ser ligada a RENPAC c a outras redes locais, 
atraves dos Gateways. 

Possui tambem proteqao de LOCK e UNLOCK para arquivos 
e registros. A velocidade de transmissao e de I Mbps e o alcance de 
2400m por cabo coaxial. Usando tambem a placa CS I OOOPC. voce 
forma redes mistas de 8 c 16 bits. 

A Rede Local Cetus e o sistema mais simples, eficaz e economico 
que existc. Junte o CS I OOOAP aos seus micros. Esta umao vai dar 
otimos frutos para a sua empresa. 




Rep/onenuntos. B*lo Hoil/onle: Spins Into/mSlicn Lida. T«l. (031) 22S-8988 Brasilia Now Compuladoros Comftrcio 0 Rcpresdnlacden Ltda Tal (061) 274-064 S/272-2590 Campinas: St- 
Ma - Stslsma* o ComputaOoies: Tol . (01 92) 52-9099 Golinln: liooo Slslemas Com. a Ho pros . do Comp . Ltda Tol (062) 224- 1 759 Jolo Pennon Som Oaipaaonal Lida . Tol . |083) 222- 1 360 
Juli do Fora: Soita Piocessamonlo do Dados SlC Ltda. Tol 1032)212-9075 Natal: Sl(pna Intonntliea Ltda Tol (064) 221-3121 Roclle: Agam - Automa«4o a Slslwnns Ltda . Tol. (OBI) 
224-4327 Salvador Supnoomp - Suprlmonlos, Rodos a Compnrladoros Ltda. Tol. (071) 245-5735 Santo Andr*: Eccos Computadoios o Sislemas Lida Tot. (011) 440-9966/440-0771 S«o 
Paulo: Enloi Pioduloa o Slslomas Udo. Tol. (01 1) 549-8299 o Gfoon InlormAUca Ltda. Tol (011) 275 7877/577-6777 a Tl - Tocnologia o IntormAtica S A Tol (01 1) 289-4720/289-3843 



Adicione ao Micro Bug este modulo operacional e amplie, dessa 
forma, os recursos de seu microcomputador compatfvel com o ZX81. 



Disassembler 




Marcos Saito 




C om o objetivo de ampLiar os 
comandos e as aplica95es do 
j4 poderoso Micro Bug, desen- 
volvi um mddulo operacional 
denominado Disassembler. 

Antes de apresentar os oito coman- 
dos do Disassembler, convendonemos: 
xxxx - ini'do do primeiro ou unico 
bloco de memoria; 

yyyy - fim do bloco inidado por xxxx 
(o endere 90 yyyy nao pertence ao bloco 
delimitado); 

zzzz — ini'do do segundo bloco de 
memdria; 

bb - byte qualquer; 
cc — um segundo 
byte qualquer (na 
ocorrencia deste, 
bb e cc devem es- 
tar em hexadeci- 
mal); 

eeee - endere 9 o 
inicial. 

Os comandos o- ... 

ferecidos pelo Di- f|3| || ll if *? fa 
sassembler s3o os 
seguintes: 

S xxxx yyyy bbcc 
— substitui a ocor- 
rencia do byte bb 
por cc, dentro do 
bloco especificado, 
imprimindo os en- 
dere 90 S onde hou- 
ve a transformafSo. 

T eeee N/L texto 
N/L — insere o tex- 
to determinado, a 
partir de eeee; 

U xxxx yyyy zzzz 
- troca, entre si, o 
conteudo dos dois 
blocos de memoria; 

V xxxx yyyy zzzz 
— compara o con- 
teudo dos dois blo- 
cos de memdria, 
imprimindo os en- 



dere?os que discordant; 

W xxxx yyyy - zera o bloco de memo- 
ria especificado; 

X xxxx yyyy bb — imprime na tela os 
endere§os do bloco que contenham o 
byte bb ; 

Y xxxx yyyy bbcc - pesquisa a ocorren- 
cia consecutiva dos bytes bb e cc; 

Z eeee - efetua o disassembler a partir 
do endereco eeee. 

OBS.: Nos comandos S, V, X, Y e Z, 
a teda BREAK interrompe o processo, 
enquanto que as outras dao continuida- 
de a ele. 

0 comando Z aoeita as opera$6es 



SHIFT S e SHIFT E para chavearem 
veloddade de execufao e base do en- 
derefo apresentado, respectivamente 
(valido tambdm para os comandos V, 
X, Y e S). 

0 Disassembler utiliza apenas 1536 
bytes, ou seja, 1 ,5 Kb, a partir do ende- 
re 9 o 7200h, o que toma possi'vel mu- 
dar o RAMTOP, no caso de se necessitar 
de mais memoria para a area do progra- 
ma em BASIC. 

Marcos Saito cursa Engenharia Etttrica na Es- 
cola Politicnica da USP. Ele 6 autodidata em 
iinguagem BASIC e desenvolve programas 
nos micros NE Z8000 a TK90X. 



si ss ss ss 

16 IE 25 2C 
A9 AA AD B 1 
29 AA BE 36 
AA BE 26 AB 
AO A 1 A2 A3 
AB AB 35 B4 
26 29 29 00 
20 00 26 9A 
3B 27 2B 00 
29 80 3D 34 
80 28 35 80 
05 74 DC 76 
03 75 09 75 

17 75 28 75 

00 74 13 74 
54 74 85 74 
7B ED 48 31 . . 
43 00 72 CD 60 
78 87 CA 4A 7 A 
CD 02 7B 44 

OA FE 76 20 

18 4A FE CB 
18 IF FE ED 
18 17 FE DO 
18 06 FE FD 
03 OA FE CB 
03 03 OA DV 
87 87 CB 7 A 
CB 72 28 02 
66 6F 26 72 
D9 7E D9 67 
E6 07 17 21 

72 C6 7E 6F 
C9 7B D9 17 
64 72 IE 00 
23 FE FF 28 
32 FE 30 28 
DF 76 FE 3C 
D7 18 E4 32 
93 28 06 1C 
F5 2A 00 72 
E5 A7 ED 42 
C3 96 72 1C 
20 08 3E 20 
18 B5 3E 2E 
20 05 3E 3D 
3E 07 18 A3 
3E 10 D7 7 A 
3E 2D D7 3E 
D7 18 8C 3E 

01 20 05 3E 
3E 3E D7 3E 
1C 3A 64 72 
OB OA CD 3E 
03 OA CO 3E 
OA CD 3E 78 

73 03 03 OA 
OA 03 1C 1C 
78 AF D7 C9 



SS ss 

A7 A8 
27 A8 



ai 



FE 00 
31 D7 



20 OB 
3E 11 
7 A FE 
18 03 
07 1C 
20 08 
18 D6 
CF 03 
C3 27 
78 08 
CD 3E 
00 00 



73E8 
73F 0 
73FB 


00 

7A 

3 


00 

E A 

23 


• 7 
46 


ft D9 
69 60 


S' 

Cl 
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09 


SS 
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0 

1040 
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7618 
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7628 
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29 


00 

tt 


10 
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2A 


38 

ft’ 


35 
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11 


1A 

if 
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419 
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7 4 00 


ft 


23 


rn 


AD 


74 


CB 


7F 


m 


7630 


HI 


64 


HI 


BC 


07 


06 


ov 


35 


669 
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DV 


58 


C8 
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CD 


7638 


JA 


JU 


AD 


V4 


HI 


28 


26 


ft 


691 


7410 


AD 


74 
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7 A 
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38 


IF 
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960 


7640 

7648 


Ji 


OO 


IM. 


2C 


ft 




OV 


661 


7418 


IF 


18 


03 


/A 


b 6 


07 


09 


CS 


831 


3B 


BV 


BA 


1C 


A4 


ID 


832 


7420 

7428 


ft 


00 

FB 


Sr 


?l 


?? 


ft 


7E 

23 


n 


9 ft 


7650 

7658 


VC 

VC 


ID 

IF 


A4 

A4 


lb 

09 


VC 

2E 


lb 

B3 


A4 

44 


IF 

81 


760 

782 


7430 

7438 


AD 

E6 


74 

38 


CB 

IF 


n 

IF 


28 

IF 


F7 

D9 


sr 


7B 

PB 


1246 

781 
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10 

10 


ft 


VI 

11 


01 

9A 


34 

84 


ft 


iS 


00 

01 


ft l 


74 40 


08 


LB 


ft 




‘ft 


FB 


3D 


20 


756 


7670 


38 


27 


28 


00 


2D 


JI 


VA 


BL 




7448 


FB 


Cl 


cv 


b 6 


38 


IF 


1298 


767U 


01 


26 


2V 


2H 


OO 


2D 


31 


VA 


368 


7450 


IF 


IF 


18 


03 


/A 


1 6 


07 


F 5 
IF 


693 


76H0 


BC 


07 


0V 


01 


31 


2V 


00 


10 


263 

674 


7458 


21 


hi 

09 


72 


78 


B 


38 


IF 


634 


7680 


JC 


11 


VA 


HI. 


ov 


31 


AV 


4C 


7460 

7468 


IF 

28 


6F 

46 


if 


ft 


ft 


n 


fi'i 


7690 

7698 


81 

g 


10 

05 


3C 

81 


VI 

37 


81 

ft 
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B3 
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744 
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7470 
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0C 
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23 

CB 


ft 


ft 


74 

3E 
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1A 


ft 


2V 


00 


26 


19 


401 


7498 


ft 


04 


CB 


VA 


CH 


E2 


CB 


6A 


1131 


Ab 


31 


00 


26 


1A 


B 7 


566 


7 4 AO 


0.' 


CB 


as. 


CB 


AA 


DV 


CB 


1192 


7 6D0 


37 


AV 


37 


31 


AV 


8F 


BF 


HI 


912 


74A0 


5F 


28 


L5 


bO 


C5 


bS 


06 


1044 


76DB 


2D 


26 
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OA 
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01 


71 


02 
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3b 
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957 
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07 
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CV 
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7488 


ED 
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77 
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7F 


77 


1293 


76E8 


73 


Fb 


B0 
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13 


C5 
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977 
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F 1 


n 


Cl 
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43 


75 


62 


1142 


76F0 


3F 


OO 


HH 


CD 


Jb 


7U 


7 V 


CD 


911 


74C8 


75 


72 


75 


A2 


75 


Ab 


75 


B3 


1097 


76F8 


3b 


78 


Cl 


1C 


1C 


CJ 


CC 


73 


945 


74D0 


75 


HH 


75 


BF 


75 


09 


31 


A9 


952 


7700 

7708 


CS 


F 5 


SF 


60 


6V 


01 


FF 


00 


1050 


74DB 


44 


85 


00 


DV 


75 


DF 


75 


F9 


1123 


bD 


42 


0V 


7C 


CD 


Jb 


78 


902 


7 4F.0 


75 


00 


ft 


ft 


ft 


ft 


76 


ft 


634 

691 


77 10 


70 


CD 


3b 


78 


b 1 
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1217 
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AH 


7718 
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76 
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6D 


76 
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VOO 


7748 


bl 
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CD 
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77 


1205 


7520 
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76 
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76 


1118 

775 


7750 


7B 
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17 
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Uom o LOGCONT, MICRO SISTEMAS inaugura urn novo servigo: o MS 
Destaque. Atraves dele, MS colocara a disposigao dos seus leitores as materias de maior 
porte e alta qualidade que chegam a redagao e que nao encontram espago suficiente para 
serem veiculadas integralmente nas edigoes normals. 

0 projeto vai funcionar da seguinte forma: urn artigo sera publicado em MS Destaque 
contendo uma explicagao resumida da materia. Caso o leitor se interesse pelo mesmo 
recebera, mediante solicitagao, urn pacote composto do texto em copia xerox e o 
re$pectivo disquete ou fita cassete (conforme o caso). 

MICRO SISTEMAS aguarda de seus leitores, como sempre acontece quando urn novo 
servigo e langado, sugestoes e criticas que so servirao para que possamos aperfeigoar 
cada vez mais o nosso trabalho. 

Sistema de Contabilidade 
LOGCONT 

Ivan Camilo da Cruz 



E m toda a histdria da informdtica, mais que se tern direito. Neste artigo, atravds das referencias ambfguas (veja a 

talvez nunca tenha existido um vamos apresentar as caracterfsticas mais seguir). Fornece ainda o saldo a debito, 

programa comercial tSo difundi- importantes do LOGCONT. Em primei- a crddito e total para cada conta. 

do quanto os sistemas contabeis. Isto se ro lugar, veremos o que o LOGCONT 

deve a vdrios fatores. Em primeiro lugar, faz e que os outros tambiSm fazem: 0 que o LOGCONT faz e que somente 

a importancia destes sistemas como fon- alguns fazem: 

te de informapOes ao administrador e • Didrio - sem duvida, o menos infor- 

tambem pela sua simplicidade de imple- mativo de todos os relatdrios contabeis. • Totalmente On-Line — o LOGCONT 

mentapSo. Suas regras simples, precisas e Inclufdo apenas por razOes legais. dispensa fichas de lote e folhas de trans- 

matemdticas permitem uma execupao . Razao _ muito fitil pr i nc i p almente cri ? a ° de dados : ob j e,os da idade da P e ‘ 

eficiente sem grande esforpo. no fechamento de contas com diferen- dra da informftica. Ele 6 um dos poucos 

No entanto, a P 6s 40 anos de informa- ?a 0 ferecendo meios de selecSo de con- totalmente on-line, sem, com .sso, per- 

tica, alguns sistemas contabeis se limi- tas e per fodos a relatar. der a efici ® ncia - 8 ra 9 as a uma estrutura 

tarn a repetir de forma automdtica o ' moderna e um modo de pesquisa sim- 

mesmo trabalho que e feito manualmen- * , Balancete - um relatdrio fundamen- ples . 

te. Isto n3o s6 traz quedas na perfor- tal P ara ‘nformapSes gerenciais. O LO- . p ra ticamente ilimitado - o LOG- 

mance dos sistemas como tambdm limi- GC0NT oferece n3o somente um balan- CONT so e limitado pela linguagem em 

ta a quantidade de informapoes que ele ce,e ’ mas um relatono flexivel que pode que <; i mp l e mentado e pelo ambiente 

poderia oferecer a empresa. 561 P r °duzido em qualquer epoca, to- em que g executado. Mesmo assim, ele 

Nesta edip3o, MICRO SISTEMAS mando-se quaisquer limites de data, nao per mite ate 32767 lan 9 amentos em um 

oferece aos seus leitores um sistema some nte do micio ao final do mes. disquete e outras 32767 contas no pla- 

contabil completo, o LOGCONT, em • Saldos - saldos de contas sinteticas no. As contas podem ter cddigos de ate 

sua forma basica, com fontes e tudo e analfticas facilmente seleciondveis 255 digit os com ate 255 niveis. 



• Muito flexfvel — a empresa que 
optar pelo LOGCONT n3o precisard mo- 
dificar uma linha sequer de seu piano de 
contas. 0 LOGCONT se adaptard a ele. 
0 numero de dfgitos em cada nfvel 6 li- 
vre at 6 20. Podem existir c 6 digos de 
tamanhos diferentes em um mesmo ni- 
vel e as contas podem ser inclufdas em 
qualquer ordem no piano. 0 pr 6 prio sis- 
tema descobrird quais contas s 3 o sintd- 
ticas e quais s3o analfticas, sem interven- 
980 do usudrio. 

0 que o LOGCONT faz e que nenhum 
outro faz: 

• Referencias ambfguas - uma referen- 
da ambfgua 6 um meio simples e efi- 
ciente de selecionar contas para produ- 
zir relatdrios e outros processamentos. 
Gra 9 as ds referencias ambfguas, o LOG- 
CONT passa a incorporar caracterfsticas 
unicas, pois com algumas teclas o usud- 
rio pode selecionar exatamente as 
contas que ele deseja processar. 

• Facilidades para construir o piano - 
em 6rg3os publicos, o piano de contas 
costuma ser repetitivo, com algumas 
contas sintdticas copiando exatamente 
as subdivisSes da outra. Ele permite a 
constru 93 o de pianos desse tipo em pou- 
cos minutos e praticamente isentos de 
erros, possibilitando tambdm facilidades 
para listagem, corre 93 o e elimina 93 o de 
contas do piano. Todos estes recursos 
s 3 o acessfveis gra 9 as ds referencias am- 
bfguas. 

0 que o LOGCONT faz e que os outros 
provavelmente nunca far3o: 

• Fontes - nunca os fontes de um 
software deste porte foram oferecidos 
a um pre 9 o tao baixo. £ uma oportuni- 
dade unica de possuir n 3 o somente um 
programa util, mas tambdm uma grande 
fonte de tdcnicas de programa 93 o. Alem 
disso, os fontes estao escritos de forma 
estruturada e modular, com a descripao 
completa de seu funcionamento interno 
(menos as rotinas de suporte), para que 
o usudrio possa gerar seus proprios rela- 
tdrios. 

• Portabilidade — este software pode 
ser executado em uma grande variedade 



NOTAIO! 



de micros nacionais: TRS-80, IBM-PC, 
MSX e todos os micros CP/M (inclusive 
Apple com placa CP/M). Talvez seja um 
dos softwares nacionais mais portdteis. 
Esta portabilidade foi conseguida com o 
uso de um dialeto mais ou menos pa- 
dr3o do BASIC, o BASIC-80 da Micro- 
soft. 

A ESTRUTURA 

0 LOGCONT 6 composto por apro- 
ximadamente 2000 linhas de c 6 digo- 
fonte divididas em 34 mddulos. Estes 
mddulos estao separados em quatro gru- 
pos: o grupo de inicializa 93 o com um 
m 6 dulo, os menus com cinco mddulos, 
os programas com 19 e as rotinas de 
suporte com nove m 6 dulos. A organiza- 
93 o hierdrquica destes mddulos pode ser 
vista na figura 1 . 

O MANUAL 

O manual oferecido com o sistema 
estd dividido em tres partes: 

Na primeira, temos o manual do 
usudrio, com uma descr^ao completa de 
cada um dos 19 programas; na segunda, 
o manual de instala 93 o, descrevendo o 
processo de digita 93 o, compila 93 o e 
link-edi 9 ao de cada mddulo; e na ultima, 
o manual de implementa 93 o, detalhando 
a estrutura interna dos arquivos de da- 
dos. 




Ivan Camilo da Cruz, constante colaborador 
de MS, domina virias linguagens da programs- 
fSo, dentre elas BASIC, Pascal, FORTRAN, 
COBOL, PL /I e Assembler. Tern ainda ex- 
periSncia em computadores grandes, minis e 
micros. Atualmente, participa da implantagao 
do CPD da Controles GrAficos Daru, desenvol- 
vendo programas em linguagem C. 



Antes de inscrever-se em qual- 
quer curso de informdtica, conte 
atd 10. Conhepa a escola, os md- 
todos e equipamentos. Confira 
se o que voce vai aprender bate 
com o que voce realmente preci- 
se. O SENAC-INFORMATICA 6 
a escola mais completa de Sao 
Paulo. Tern cursos prdticos para 
quern quer aprender a operar, 
programar, conhecer linguagens, 
aplicativos, ou simplesmente, jo- 
gar com o micro. O SENAC-IN- 
FORMATICA estd oferecendo 
10 novos cursos nota 10 da linha 
Sinclair. Escolha o seu e venha 
tirar a prova dos 9. Voce vai con- 
cordar em numero, genero e 
grau! 



1 . 

2 . 

3 . 

4 . 

5 . 

6 . 

7 . 

8 . 

9 . 

10 . 



Operapao TK90X e 
IntrodupSo ao Basic 
Sinclair 

ProgramapSo 
Basic TK90X 

Assembler Z-80 

Assembler Z-80 
Avanpado 

Criapao e Programapao 
de Jogos no TK90X 

CriapSo e Programapao 
de Aplicativos 
no TK 90X 

FORTH no TK90X 

PROLOG no TK 90X 

Aplicapdes Profissionais 
do TK90X 

Logo para Crianpas 



INSCRIQOES ABERTAS. 
VAGAS LIMITADAS! 

Informapdes e Inscripoes: 

Rua Dr. Vila Nova, 228 
Tel.: (011) 255-0066 







INPUT 



Lbglca Sinclair 16k 



COMP -CALC 



MICRO SISTEMAS analisa para seiis leitores, neste niimero, 
tres editores de texto simples e eficientes, para serem 
utilizados em microcomput adores pessoais. Eles sao o Comp- 
Texto (ZX8I), Multitext (ZX Spectrum) e o MSX-Word (MSX). 



Editores de texto 



N a epoca de ouro dos micros ZX81, um 
programa quc se dcstacava pela boa 
qualidade e recursos, apcsar de nao per- 
mitir scu total aproveitamento devido as limi- 
tagSes do proprio micro, era o Tassword, cria- 
do pela empresa inglesa Tassman Software, e 
que foi traduzido c comercializado no Brasil 
pela firma Cibcrne Software, cm uma fita com 
dois outros utilitarios dcnominada Aplic: csta 
versao lcvou o nome de Comp-Tcxto. 

O Tassword e um editor de texto com va- 
rios recursos, dos quais podcmos destacar a 
rcestruturagiSo de paragrafos inteiros; centrali- 
zagSo de texto na linlia; e facil intera?ao com 
o usudrio, tomando-se bastantc simples de ser 
utilizado. Como foi dito no infcio, as limita- 
g5es do cquipamento o tomaram sem valor 
para aplicagdes comcrciais, pois com somcnte 
32 colunas de texto e com possibilidade de 
sai'da apenas para as impressoras Alphacom e 
Timex 2040, de diffcil aquisigSo no Brasil, o 
Tassword tomou-se mais um software de boa 
qualidade sem o mcrecido sucesso. 

A historia deste software tcria tcrminado 
se nSo fosse o lancamcnto no Brasil de duas 
maquinas. Uma dclas i o TK90X, versdo da 
Microdigital de um dos mais famosos micros 
da Europa (o ZX Spectrum, sucesso desde 
1982); o outro micro e' o t5o falado MSX (lan- 
gado no Brasil cm duas versdes, o Hotbit, pclo 
grupo Sharp; c o Expert, pela Gradiente). A 
ligagao deste programa com estes langamcn- 
tos e que versoes do antigo Tassword para cs- 
tes equipamentos ja existiam no exterior e fo- 
ram traz.idas para aqui serem comcrcializadas. 

A propria Microdigital, atrave's da sua mar- 
ca Microsoft, langou a versao \i traduzida, que 
incorpora uma rotina de impressao permitin- 
do o uso de interface para impressora parale- 
la no micro TK90X. Alem desta vantagem - 
que por tabcla atinge tambe'm os micros da 
linha ZX81 (TK82/83/85), para os quais csta 



interface tambe'm ja csta disponi'vel no mer- 
cado o novo Tassword, rebatizado de Mul- 
titext, possui tambe'm novos c atraentes recur- 
sos, tais como 64 colunas de texto que po- 
dem set redimensionadas para mcnos; possibi- 
lidade de trabalhar com blocos de texto e pro- 
cura a substituigao de palavras ou grupo de 
pa lavras, ale'm de possibilitar o merge de dois 
ou mais textos e uso de caracteres de controlc 
para impressoras padrao Epson, contando in- 
clusive com rotinas para redefinigSo dcstes ca- 
racteres. 

A vers5o do Tassword para o MSX ficou 



CONMUMl CO*. 

X tXPtliT I 
HOt Bit 



Nome: Multitcxt 

Linha: ZX Spectrum (TK90X) 

Fabricante: Microsoft 

Enderego: Caixa Postal 54121 

CEP 01136 -S5o Paulo - SP 

Telefone: (011)825-3355 

Prego:Cz* 79,50 



Nome: MSX-Word 
Linha: MSX 

Fabricante: Cibcrtron Software 
Enderego: Caixa Postal 17005 
CEP 02399 - S5o Paulo - SP 
Telefone: (011) 204-9988 
Prego: Cz$ 162,00 



por conta da firma Cibcrtron Software, que 
o denominou MSX-Word, fazendo tambe'm 
sua tradugao para o portugues. As difercncas 
entre as versdes para o TK90X e para os MSX 
sao poucas: na realidade, a unica mudanga sig- 
nificativa e' o fato de a verslo para o MSX pos- 
sibilitar o uso da acentuagSo e o cedilha, o 
que nao acontece com o fantasma da incom- 
patibilidadc, pois os MSX nacionais - para 
nao fugir a regra - possuem diferengas entre 
si c justamente na parte da tabela de caractc- 
res reservada para a acentuagSo (as diferengas 
entre eles nao param af, mas isso e' outra con- 
versa), e isto ira criar uma certa dificuldade 
em passar textos de uma maquina para outra. 

Mas o problema maior da acentuagslo nao 
e este c sim o fato de as listagens nao. saltern 
acentuadas no padrao da impressora assumido 
pelo software, o Epson. Os testes efetuados 
nas impressoras Monica Plus e Grafix foram 
insatisfatorios. Apenas o usuario com mais de- 
dicagao a programagao vai conseguir contor- 
nar estas dificuldades, criando suas proprias 
rotinas de impressao c compatibilizagao. O 
Gerente de Produto da Cibcrtron, Sr. Alexan- 
dre Sievers, afirmou que em breve o problema 



com as impressoras sera rcsolvido, atraves da 
incorporagao ao software de rotinas de im- 
pressao especfficas para os modelos encontra- 
dos no mercado nacional; MICRO SISTEMAS 
agradece se tais rotinas forem divulgadas. 

A conclusao final e quc estes programas, 
todos derivados da mesma fonte, nao sao o 

3 ue existe de melhor em materia de editores 
c texto, mas sao indiscutivelmente os melho- 
res programas que podem ser encontrados a 
um baixo custo de operagSo, ja que para utili- 
za-los e preciso basicamente um micro de cus- 
to razoavel, um aparelho de televisSo e um 
gravador cassete. A impressora e um requisito 
importante mas nao imprescindfvel, ja' que po- 
dem ser alugadas ou emprestadas, sendo que a 
maior vantagem e a facilidade de operagao 
destes editores, o que nao exige do seu usua- 
rio grandes conhccimentos de computacJo. 

Os tres programas citados nesta anilise po- 
dem ser encontrados nos magazines e lojas es- 
pccializadas em informdtica, ou entao pedidos 
diretamente as empresas que os fabricam. O 
enderego de cada uma destas empresas e dado 
no quadro referente a cada um destes progra- 
mas. Ana'Hse feita por Divino C. R. LeitSo. 



Nome: Aplic (Comp-Texto, Comp-Calc, 
Comp-Arq) 

Linha: ZX81 

Fabricante: Cibeme Software 
Enderego: Rua Mayrink Veiga, 32 - SI. 
CEP 20090 - Rio de Janeiro - RJ 
Telefone: (021) 262-6968 
Prego:Cz$ 80,00 
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Pregao 



Pregao c um jogo dinamico, para a gitar qualquer tecla, o placar final d lidas, como, por exemplo, o jogador 

linha ZX Spectrum, quc consiste na si- apresentado com o nome dos acionistas vender mais ti'tulos do que possui. Se 

mulatto de um prcgSo de mercado de e os seus respectivos capitals finais.jun- um acionista demorar muito para cfe- 

agOes, onde um jogador se passa por tamente com a pergunta se ele deseja ou tuar operates, a sua vez passara para 

operador, comprando e vendendo ti'tu- nSo participar de uma outra partida. outro. — 

los, dentro de um espago de tempo (em Atengao: nao ser5o aceitas jogadas inva- m 

minutos) por ele mesmo definido no 

infcio da partida. Durante o Pregao, o 

jogador pode obter de imediato infor- Livio Roberto Pereira Brasil 4 Fisioterapeuta e fez cursos de programafSo BASIC e COBOL. 

masses tais como quanto dinheiro ain- Atualmente trabalha como programador no CRD da Montreal Engenharia, no Rio de Janeiro. 

da tern disponi'vel; 
o tempo aproxi- 
mado para o tdr- 
mino do jogo; si- 
tuag3o geral e agfies 
adquiridas. Pode 
participar da parti- 
da um ou mais 
jogadores, vencen- 
do aquclc que fizer 
o melhor investi- 
mento. 

No infcio do 
jogo, a tela apre- 
senta as teclas de 
controle para ope- 
rates e amostra- 
gens e pedc o nu- 
mero de jogado- 
res. Em seguida, 
sao solicitados os 
nomes dos acionis- 
tas e o tempo de 
jogo em minutos. 

Comega, entao, o 
Pregao com os no- 
mes de varias em- 
presas; o valor de 
suas agSes (as que 
estao em alta, se o 
jogador for acionis- 
ta, s3o destacadas 
com flash ); uma 
coluna com valores 
de compra e outra 
com a quantidade 
de ag5es disponi- 
veis para venda. 

Terminando o 
tempo, o programa 
mostra ao jogador 
sua situa 9 ao geral; 
agoes adquiridas; 
capital final; lucros 
e prejui'zos. Ao di- 



1 REM **##**#*«*##♦#♦«#♦#***# 



LIVIO R. BRASIL 



5 GOSUB 9000 
7 CLS 

10 DIM N t ( Y , 1 2 ) DIM C$(21,12> 

DIM C <20 i DIM V (Y , 20 > : DIM fl( 

20 i DIMP(Y,20>; DIMK(Y,20> D 
IM D<Y> 

11 POR K-l TO Y: INPUT "ACIONI 
ST A , (K) ; ’’ •* , N*(K) LET D(K)-50 
0000 NEXT K 

12 LET LI-" 

13 INPUT TEMPO DE JOGO EM MIN 
" ; temp 

15 LET l-TEMP*200 

19 POR K ■ 1 TO 20 READ C*(K) 

LET C(K)-5 LET A (K) -90000 NEXT 

K 

20 POR K-l TO 19 

21 POR J *K ♦ 1 TO 20 

22 IP C*(K)<C*1J) THEN GOTO 24 

23 LET M*-Ci(K) LET C*tK)-CK 
J» LET CS (J) -M* 

24 NEXT J 
23 NEXT K 

28 BORDER 7 PAPER 7. INK 0; C 

LS 

29 LET J-l LET ST-0 

30 LET OPT -30 CLS PRINT AT 
0.0, ' NOME". AT 0.10." C0TACA0"; 
AT 0,19," U/VAL" , AT 0,25; M 0/A 

35 PRINT 

40 FOR K-l TO 20 
50 PRINT TAB OiC$(K).TAB 14, C< 
K) ; ( " . 0" AND LEN STP* (CtK))-l), 
TAB 2 1 , U ( J , K 1 . (".0" AND LEN $TR* 
(V(J.K) ) -1) ; TAB 31 -LEN STR* (A( 
K ) ) . A ( K ) 

60 NEXT K 

81 INPUT PRINT ai;"ACIONIS 

TA ” ; i J) ; " - (NS (J) ) 

70 LET 0-100 

101 IF INKEYS > n " THEN LET IS-I 
NKE ( 5 GOTO 110 

102 LET BOR - 1 NT (ST/13) : BORDER 
BOP LET 5T-ST+1 IF ST < 100 THE 

N GOTO 104 

103 LET ST-0 LET J-J*<1 AND J< 
Y) - ( (J-l) AND J-Y) GOTO OPT 

104 LET t-t-1 IF l<=0 THEN GOT 
0 2000 

105 GOTO 1000 

110 GOTO 105 ♦ ( 15 AND IS-"C")+(1 
95 AND IS="V") + (295 AND IS="A")* 
( 39S AND IS S "D" ) + (495 AND It="T" 

I ♦ (545 AND IS="P"> 

120 INPUT "(COMPRA) CIA ";0S 
130 FOP K-l TO 20 

132 IF OS =CS 1 K , TO LEN OS) THEN 
INPUT tCS'Kll," S/N ";IS IF IS 

=”5" THEN GOTO 140 

133 NEXT K: INPUT "COMP INEX 
"OUTRA " ; IS IF IS»"S" THEN GOTO 

120 

136 INPUT PRINT #1; "ACIONIS 

TA " (J) ; " - M ;(NS(J)) GOTO 100 
140 INPUT "QUANTIDADE " ; OT 

145 IF OT < -A (K) THEN GOTO 160 

146 INPUT "QUANT EXCESS ";"0UT 
" : IS IP IS="S" THEN GOTO 140 

147 INPUT "": PRINT Bl; "ACIONIS 

TA " ; ( J) ; " - ";(NS(J)); GOTO 100 

160 IF QT»C(K) <=D(J) THEN GOTO 
170 

161 INPUT "S/FUNDOS. OUT ";IS 
IF IS="S" THEN GOTO 140 

162 INPUT PRINT ni; "ACIONIS 

TA " ; ( J) ; " - " ; (NS ( J) ) ; GOTO 100 



170 LET D(J> -D(J) -QT*C(R) LET 
D ( J) -I NT (DIJ)) LET A(K)-A(K)-0 
T LET U(J,K)-C(K): LET P(J,K)-P 
( J .KJ +QT 

190 LET J-J+l LET ST-0 

191 IP J > Y THEN LET J-l; GOTO 0 
PT 

193 GOTO OPT 

300 INPUT " (VENDA i CIA . OS 

305 POP K-l TO 20 

306 IP P ( J , K l -0 THEN GOTO 315 
310 IP QS-CSIK, TO LEN 0S> THEN 
INPUT (CSIK)),*" S/N " ; IS IP IS 

■"S" THEN GOTO 330 
315 NEXT K. INPUT "COMP INEX. 0 
UT " ; IS ; IP IS-"S” THEN GOTO 300 
320 INPUT PRINT 01, "ACIONIS 

TA " ; ( J) ; " - " ; (NS < J) ) : GOTO 100 
330 INPUT "QUANTIDADE ",QT, 

333 IP P ( J , K) -0 THEN INPUT "N T 
EM ACOES" , IS INPUT "": PRINT Bl 
"ACIONISTA " ; ( J) ; '• - " ; (NS ( J) ) 
GOTO 100 

340 IP P ( J , K) > -OT THEN GOTO 360 
343 INPUT "QUANT EXCESS. OUT ", 
IS IP IS-"S" THEN GOTO 330 
330 INPUT PRINT Bl, "ACIONIS 

TA " ; ( J) ; " - "iiNSUn GOTO 100 
360 LET D ( J) -D ( J) ♦QT*C (K i LET 
D ( J ) ■ INT ( D ( J) > LET P(J.K)*P(J, 
K) -QT LET A (K) -A (K) *QT 
370 LET J-J*l LET SP-0 
380 IF J >Y THEN LET J-l 
390 GOTO OPT 
400 LET OPT -400 . CLS 
410 PRINT AT 0,0;" NOME". AT 0 
10." COT AC AO" ; At 0,19," U/VAL . 
AT 0,25, " Q/A" PRINT 
420 FOR K-l TO 20 
430 IF P ( J , K ) *0 THEN PRINT GO 
TO 460 

440 PRINT TAB 0;CS<K);TAB 14, C( 
K) ;TAB 21; V(J,K) ; ( " .0" AND LEN 5 
TRS (V t J,K> ) -1) ; TAB 31-LEN STR» 
(P(J,Kl);P(J,K) 

460 NEXT K 

465 INPUT ••"; PRINT Bl; "ACIONIS 
TA " ; < J ) ; " - INS (J) ) 

470 IP INKEV S-" " THEN LET 0-470 
GOTO 100 

480 IF INKEYS-'M" THEN LET 0-30 
LET OPT -30 GOTO 1000 
490 GOTO 100 

500 INPUT "VOCE TEM ",(D(J>>," 

is 

310 INPUT "" PRINT Bl; "ACIONI 
STA " ; ( J) ; " - ";(NS(J)) GOTO 10 
0 

600 LET 2 -INT (T/200) 

610 INPUT "VOCE TEM APROX "; (2) 

; " MIN " ; IS INPUT "" PRINT Bl; 
"ACIONISTA ";<J);" - ",(NS(J)' 
GOTO 100 

850 COPY GOTO 100 
900 STOP 

1000 LET 2 -INT (RND*20>+1 

1010 LET K-INT (RND»2) IP K-0 T 

HEN LET K - - 1 

1015 IF RND > . 97 THEN LET K-l 

1020 LET C(Z> =CtZ) ♦ tK/10' 

1021 IF C(Z)<0.1 THEN LET C (2) -0 

1022 IF C (2) >9.9 THEN LET C<2>=9 

.9 

1025 IF C (2) >V ( J , 2) AND P(J,2)<> 
0 THEN LET PL-1 GOTO 1027 

1026 LET FL-0 

1027 IF C (2) -V (J,Z) > .5 AND P(J.2 
) < >0 THEN SOUND .01,30 

1028 IF P(J,Z)=0 AND 0=470 THEN 
GOTO 1040 

1030 PRINT AT 2+1,14; FLASH FL . C 
(Z);. IF LEN STRS (C(Z))=1 THEN 
PRINT AT Z + 1,15, FLASH FL .; FLASH 
FL; ".0" 



1040 GOTO 0 

2000 LET CP--100000 POP H-l TO 
Y Cl S PRINT " ACERTO 

PINA. "ACIONISTA - " NS 

2020 LET TO -0 POR K-l TO 20 
2030 IF Pui.Ki-O THEN GOTO 2040 
2035 PRINT TAB <5- (LEN STRS <P<H 
.K J i * • . PtH.Kl . " ACOES DA ”.CS«K) 

" V . COM 1 ; V (H , K ) ; ( " . 0 " AND LEN 3 
TPS V(H.K)-li. V.ATUAL ",C«K),( 
.0" AND LEN STRS C (K) -1) . " DF " 
LET VLA-INT ( (P (H , K) *C (K) ) - 'P 
IH K) *V IH.K) ) ) 

203S PRINT TAB 32-LEN STRS VLA;V 
LA 

2039 LET TO-TO+P (M,K) *C (K) 

2040 NEXT K 

2050 PRINT "TOTAL EM ACOES ", T 
AB 32-LEN (STRS (INT TO) ) ; INT TO 
2053 PRINT PRINT "TOTAL EM C 

AIXA .TAB 32-LEN (STRS (D<M))),D 
lh> ' 

2056 PRINT TAB 24 . " 

2060 LET TO -INT (T0+C*(H) > PRINT 
"SOMA TOTAL - " ; TAB 32-LEN (S 
TRs <T0) ) , TO. 

2070 PRINT "DIPERENCA « ” ; . LET 
D I -TO -500000 PRINT TAB 32-LEN ( 
STRS 1 AB S DI) i . ABS DI" 

2030 PRINT " ": ("DEVEDOR" AND 

3GN DI--1) ♦ ("CPEDOR" AND SGN DI 

2034 LET D'M) -TO 

2033 IF CP <T0 THEN LET CP-TO lE 
T CAMP-H 

2090 IF INKEYS-"" THEN GOTO 2090 

2100 NEXT h 

2101 CLS PRINT FOR K-l TO Y 
-1 

2102 FOR J-K TO Y 

2103 IP D (K) <D ( J) THEN LET U-DtK 

) LET D(K)-D(J> LET D ( J) -U LE 
T GS-NS(K). LET NS(Kl»NS(J): LET 

N S ( J 1 -GS 

2104 NEXT J 

2105 NEXT K 

2106 CLS PRINT FOR J-l TO Y 

2107 PRINT NS • J) ; TAB 32-LEN STRS 
(DIJ) ) , D ( J) 

2103 NEXT j 

2110 INPUT "OU+RA PARTIDA S/N ? 

" . RS 

2120 IF RS 1 3" AND RS<>"N" THEN 

GOTO 2110 

2130 IF RS-" S" THEN RUN 
2140 STOP 

9000 ClS PRINT " P 

REGAO ESTE JOGO SIMULA A 

COMPRA E VENDA DE ACO 

ES." "VOCE PODE USAR AS TECLAS 

<C> P/COMPRAR ACOES <V> P 

/VENDER ACOES" "<M> MOSTRA A SIT 

UACAO GERAL A> MOSTRA APENAS 

AS SUAS ACOES" 

9010 PRINT " <D / INFORMA QUANTO D 

INHEIRO VOCE TEM DISPONIVE 

L «T> INFORMA 0 TEMPO APROXIMA 

DO"." PARA TERMINAR 0 JOGO" 

POKE 23653,5 INPUT "NUMEPO DE 
JOGADORES " ; Y . INPUT "APERTE EN 
TER P COMECAR ,YS RETURN 
9990 DATA "HP" . "RITAS" , "MICRODIG 
ITAL" "COMMODORE" "TIMEX" , "DRAGO 
N" "GRADIENTE" "DIGITUS" . "SID" " 
UNITRON" . "APPLE" . "TANDY" , "SINCLA 
IP" . "PROLOGICA" , " IBM" . "BURROUGHS 
;; , "COBRA" , "TEXAS" , "ATARI" , "SHARP 

9999 SAVE "PREGAO" LINE 5 



Livio Roberto Brasil 
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trs-80 trs-80 trs-80 trs-8 



Heber Jorge da Silva 



Missao Alfa 



Missao Alfa 6 um interessante joguinho desenvolvido para 
os micros da linha TRS-80 modelos I/III. Com ele, voce pode- 
rd treinar sua pontaria em alvos que nao sao naves alien lgenas 
e sim letras que se movimentam, as quais o leitor terd que atin- 
gir com seus misseis ate completar todo o alfabeto. A cada le- 
tra atingida, 6 colocado em seu lugar um bloco grafico e se um 
desses blocos for atingido, o seu missel se fragmentary e caird 
sobre a sua nave, podendo destruf-la. 

0 programa tern nove rn'veis de dificuldades, sendo que o 
nivel 9 d o mais fdcil e o nivel 1 6 o mais dificil. Toda vez que 
voce veneer em um nivel serd automaticamente conduzido a 
outro mais diffcil, e assim por diante, atd chegar ao nivel 1. 
Sua municao d controlada, isto d, dependendo do nivel de 
dificuldade, voce a terd em maior ou menor quantidade. Se 



a sua municao acabar, voce perdera sua nave. Para conseguir 
municao extra, serd necessdrio atingir o modulo de municao 
(seta para a direita), que de vez em quando cruza o video da 
esquerda para a direita. 

Primeiramente, digite o programa, gravando-o em fita ou 
disco. Como ele utiliza uma rotina de som em linguagem de 
maquina, antes de rodd-lo, responda d pergunta PROTEGER? 
com 32738. 



Formado em Administragao de Empresas pela UDF, Heber Jorge da 
Silva trabalha atualmente na Telebrasi'lia, onda exerce atividades liga- 
das a programagao de microcomputadores. 



1 REM 

2 REM *» MISSflO ALFA I, 

3 REM ** Por H.b.r Joroi dp Silva - Brasilia DF. 00/03/34 >s 

4 REM 

5 CLEAftSOOO* DEFINTA-Z* DIMI* ( 13) 

4> FFS-"ABCDEFGHI JKLMNOPQRSTUVWXYZ - 1 NS-CHF.S 11281 -CHR* 1 1041-CHRS 1 1 

73)»CHRS1144)»CHRS(1281 l TC- 144001 TS-CHRS (91)t APS-CHRS (32)1 VI- 153 
60|ES-STRINGS ( 10. 32) i ANS-STR1NGS <5, 321 1 BLS-CHRS1461 1 XI .-STRING* 1 
3,1 go ) I X2S-STR1NGS13. 1661 t ALS-CHRS1 30) i PM- 128-RND (56) 

7 ED-327391 IFFEEK1 163961- 201THENF0KE16527.ED/2S6lP0KEl€,326.EDAND 

25EELSEDEFUSR-32739 

8 FORP ■ -ED70ED»2Bl READX I POkEP ■ . X . NEXTP ■ i G0T049 

9 PT-Ol D-Ol Y-OlP-Ol PC-Oi AC-Oi hU-Ol F-Ol DP-Oi BH-Ol AT -O I RANDOM 

10 CLSiPRINTCHR*<23) 18384 . "Nlvsl da D 1 * leui dadai "i PRINTiPRlMT"Da 
1 (dificil) a 9 (f.cil>- 

1 1 DS-INKEYSl IFDS-" "THEN1 1ELSED-VAL (DS) ■ 1FD< I0RD79THENI 1 

12 Y-9-DlPI-2B6*64»YiP-PIiCLSiPRINTCHRS(23) 19400. -UM MOMENTO ... 
"1 1 MU-LEN (PFS) » ( 10-D) »2 

13 I FORJ-lTODl AS-AS-M1DS (PFS. I. 1 ) iNEXTJ. 1 

14 FORI-ITOLEN(AS) I IFLEN(AS) >233THEN15ELSEAS-AS*M1DS (AS. I . 1 ) i HEX 

15 1FLEN (ASX234THEN1 4ELSEAS-ESVAS-ES 

16 VPI-VARPTR(AS) 1 EN ■ -PEEK (VP I »2> «256»PEEK (VP- »1 ) ■ 1FEN 1 >32767THE 
NEN1-EN 1 -65536 

17 CLSl POKEVI— 1 , 183l P0KEV1-60. 187i FRINT8F 1—34. "Muni caoi "iSTRIN 
GS (MU, 91 ) | t PRINT8PI+9B. "Acsr tosi ( Nival "D" )l"l BP 1-132. "Tael a "C 
HRS (34) "CLEAR"CHRS(34) " oara novo ,oflO*l PRINTPFSi 

18 FORX- 1T0LEN (AS) 1 PRINT82. MIDS (AS, X . 58) I G0SUB22 1 IFDPPRINT8PT. TS 
1 tNEXTXELSENEXTX 

19 PRINT820, "v ol tando. . , H ||G0SUB48 

20 FORX-LEN (AS) TO 1 STEP- 1 1 PRINT82, MIDS (AS, X. 58) 1 G0SUB221 IFDPTHEMP 
RINT 8 FT. TSi I NEXTXELSENEXTX 

21 G0T018 

22 PRINT 8 F , NSi I AC-FEEK (VI-PT— 64) 1 R-RND (20) I IFR-DTHEN 8 M— 1 

23 I FAC- 1 9 1 AT— 1 1 PC-PT*64 1 U-USR ( 780 > 

24 IFAC-94ANDDFFRINT8FT. AFSi 1 BM-Oi DF -Ol F-Ol PM-1 28vRND(5o) t AM-RND 
(10) iF0RI-lT0AMlPRINT8PT-133, “Bonus" I Ii 1 GOSUB481 MU-MU— (MU* 1 <LEN( 
PFS)v(10-D)S2)iFRlNT8PI->44. STRINGS (MU. 91 ) 1 ALSi 8PT-64. CHRS (42) i 8 F 
T-130.ALSi8PT-64.APSiiNEXTlPRINT8192.ALSi 

25 1FAC >64ANDAC< 9 1 POKEV I +PT— 64 , 191 1 POKEEN ! »X-»PT-67. 191 lU-USR (800 
) 1 G0SUB67 

26 IFEC-LEN(PFS)THENPR1NT8PI»163." Muito bam. CAMPEAO 1 1 • " 11 GOS 
UB47lIFECANDD>lTHENPRINTiPRINT"TENTE AGORA O NIVEL" 1 D-l I " . . . - 1 1 F 
ORT- 1 TO 8 OO 1 NEXTTi EC-Ol F-Ol PT-Ol D-D- llDP-Ol GOTO 12ELSEMSS="0UE BOR 
TE HEIM?! I • " IGOT040 _ 

27 1FATTHENPRINT8PC. APSi 8PC+B. AFSi 8FC-C. APS! 1 A-RND (5) 1 B-RND ( 18 ) 1 
C-RND (15)i PC“PC+61*Ai PRINT8PC. BLSl 8PC+B, BLSi 8PC-C, BLSi : IFPC>319+ 
64SYTHENAT-0 

28 IFPC>255+64SYPR INT8PC, APSi 8PC-*B. APSi 8PC— C. APSi 1 PC-Oi AT-OELSEI 
FPEEK (VI+PC—64) >128THENMSS— " Qua Pena 1 ! 1 QUASE QUE VOCE GANHA .. 

. " I FR INT 8 FC. AFSi 8 FC*B, AFSi 8 FC—C. AFSi 1 G0SUB4oi F— 1 1 G0T040 

29 IFBMTHENPM-PM-(PM*1< 191 ) I PRINT8PM. CHRS (94) i 1 IFPM-190THEMBM-0! 
FR I NTS 189, AFSi AFSi 1 FM-128-RND (56) 

30 IFDPTHENPRINTSPT.APSi iPT-PT-64i IFPT< 64ANDFTHENG0SUB46l G0T040E 
LGEIFPT<64THENDP-0 

31 IFBMTHENPRINT8PM-1 , APSi 

32 PK-FEEK(TC) 1 IFFKAND2RUN 

33 IFFKAND32THENF -P- (F-2>25S»64«Y) ELSEIFPKAND64THENF -p- (p.2<31 5v 
64#Y) 

34 I FPK-8ANDN0TATTHENEE— 1 i GOT038ELSE I FPK- 1 6ANDNGTATTHEN38 



35 IFPK>l27THENIFI>P-0THENU-USR<1050)«DP— liPT-P-o2«Ff<INT*PT,T»* i 
KU-«U* < MU- 1 >- 1 ) « PR 1 NT8F I ■* 4 4 . STR I NG • < MU. 9 1 ) i AL • l 

36 IFMU-0THENMS4--FALT0U MUNICAO"* Voc* trrou Miitot tiro»..."» 
F— 1 

37 RETURN 

38 PRINT8P.AN4I « IFEETHENF-2So*o4*YELSEF-313*o4*Y 

39 EE-Oi RETURN 

40 PRINTePI"M32.AL4iePT.AF4ie0.AL«ieFh-l.AL4|80. i i F0FT-VIT0VI+63 
iPOKET. 128* NEXTT 

4 1 R-RND < LEN < MS* > > i I FPEEK < V I -*R > < > 1 28THEN42ELSEV-V* liFRINTOF.Mll>* 
(M3*.R. 1) * iU-U5R<1500*R»4> 

42 IFV<LEN(MS*> THEN4 1ELSEV-0* FR 1NT8LEN (MS* > *3. "NOVO JOGO 7 (8/N) 

43 K*- INKEY** IFF ANDK*-" - THENPR INT0F * 1 . X 1 *, | U-USR ( 1 200+FND ( 200> ) * 
PRINT lftP*-l , X2** *G0T043ELSEIFK*-""THEN43 

44 IFK*-"S“ORK*--»“THENRUNELSEIFK*-"N“ORK*-"n"THENCLS«END 

45 GOT043 

46 F0RT-80T01STEP- ! « U-USR <S12*T> * NEXTT* RETURN 

47 F0RT-180T0ISTEP-1 * U-USR (512+T) *NEXTT * RETURN 

48 F0RT-1T010*U-USR(512^T) *NEXTT* RETURN 

49 CLS* PRINTCHR* (23) l 8402. " • MISSAO ALFA • " *PRINT«PRINT" ( 1984) o 
or ? H»to*r Jorqe da Si 1 va" * G0SUB47* PF INT87 1 4 , “QUER INSTRUCOES (S/N 

50 K*-INKEY«* lFK*-""THEN50ELSEIFK*-"N"0RK*-"n"THEN9ELSEIFK*< >“S" 
ANDK*O-m“THENG0ELSECLS»PRINTTAB<24)"* INSTRUCOES *" 

51 I*<0)-"0 ob ittivo • ’ acvrtar as latras at»' comolvtar todo o 
alfabpto. - 

52 I*< 1 )""Ouando uma letra For atlnaida. um bloco QraFico a subs 
tituira’ . " 

53 !• <2> -"Os d: soar os aue atinairem os blocos *» Fraamirntarao. c 
atndo os" 

54 I*<3)-“»sti lhacos sobrv a base. Caso esta ss,a atinaida. a ntx 
ssao t»r-" 

55 I * <4 ) - "«i nar a’ . A auantldade de municao varia de acordo coin o 
nivel de" 

56 I* (5) -"diFiculdade do .toao. Para aanhar municao extra, voce t 
era' de" 

57 I* (6>-"atinair o ob,eto ••♦CHR*<34>-*CHR*<94>*CHR»<34>«-" aue ‘a 
s vezes cruza o video. Se a municao" 

58 I*<7)a>"acabar . a missao estara’ termlnada com a sua derrota. 
Ados ven-" 

59 I* <8) -"cer em um nivel. voce sera* automat i camente convidado 
a . «ogar" 

60 I*(9)-"em um nivel mais diFicil. ate’cheaar ao nivel 1 <mais 

dificil)." 

61 I*<10)-CHR*<210)+"TECLAS DE CONTROLE DA NAVE" 

62 I*(ll)»"< "♦CHR* (93> ♦"> - move oara a esquerda <"+CHR*< 

94)*"> ■ move oara a direita" 

63 I*<12>— "< "♦CHR* <91 )♦“> = move o/ extrema esauerda <“+CHR*< 
92) ♦" > - move o/ extrema direita" 

64 I* ( 13) — "<ESPACO> ■ disoara misseis < CLEAR > - nova miss 

ao" 

65 FORI — OT013* GOSUB68* NEXT I * PRINT0978. "Teel e RETURN para continu 
ar"i 

66 I F 1 NKE Y*= “ " THENU-USR ( 5 1 2+RND ( 30 ) ) * G0T066EL SEG0SUB48 * G0T09 

67 FOR I -V I +P I ♦ 1 62T0V I ♦P 1 4-1 07 * I FPEEK ( I ) - ACTHENPOKE 1 . 191 * EC-EC+1 * R 
ETURNELSENE XT: RETURN 

68 S-E80* FORJ-1 TOLEN < I * ( I ) ) : S-S— 1 * U— USR (S) * PRINTCHR* ( 12B+RND (63) 

) * CHR* (24) * MID* (I*(I).J,l)s* NEXTJxPRINT * RETURN 

69 DATA 205. 127. 10. 62. 1 . 1 4. O. 237. 91 . 61 . 64. 69, 47. 230. 3. 179.211.25 
5. 13.40.4, 16.246.24.242.37.32.241.20! 
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Sempre Novidades 



ESPECIAIS 

Estes pro'gramas foram considerados os melhores, ate hoje, em suas modalidades. 
Caneta Orica ■ Deskmate • Gold Runner » Karate • Knock Out ■ Marble Maze ■ Pit si op // 
Module Man ■ Shock Tropper -P 51 Mustang ■ OS -9 Sist. Operacional • Bata! ha Nava! 




COLOR 

CP-400. Color 64. MX 1600. etc. 



ADVENTURES 



PD.012 D Blackboard's Island 
PI) 013 D Dallas Quest 
PD 016 D Marooned 
PD 017 F D The Martian Crypt 
PD. 019 F D Trokboer 
PD. 020 F D Vo.tex Factor 



P/D Btuw master 
F 'D Chembeis 
F D Columbia 
F/D Crazy Painter 
F/D Downland 
D Dragon Slayer 
F/D Fighter Pilot 
i p Ghana Bwana 
F/D Gold Runner 
I F/D Jaws 
• F/D Karatd 
F/D King Tut 
D KnockOut 
F/D Marble Maze 
F/D Modulo Man 
F/D Mr. Dig 
D One on One 
F/D Pegasus 
F/D Peng on 
D Pitstop II 
F/D Shock Trooper 
F/D Shooting Gallery 
F/D Stellar Lifeline 



PP.009 F/D Batalha Naval 
PP.010 F/D Bridge 
PP.011 F/D Gomoku and Renju 
P P.01 2 F/D Moneyopoly 



PS .004 F/D Boeing 747 
PS .005 F/D P-51 Mustang 
PS.006 F SR-71 



E.001 D 0S-9/Sist. Operacional Ingles 
PA. 031 F/D Caneta Otica Port. 

PA.036 D Controle de Assinantes Port. 
PA.032 D Controle de Estoque Port. 
PA .033 D Doskmate Inglds 

PA.035 D Pro Color File Enhanced Inglds 
PG.008 D Cocomax II Inglds 



PU.021 D Disk Drive Analyzer 
PU.022 F/D HI RES II 
PU.023 F/D ML Basic 
PU.024 D Piratector 
PU.025 F/D Tapedupe 
PU-027 F/D Utility Routines 



| Manual | Prepo | 

NAo 128,00 
Ingl6s 128.00 



Programas onde voce responde 
as perguntas a medida em que 
vive uma aventuia emocionante. 

Alia resolupSo grMica. 

JOGO S 

Ajude o gargom a servir as cerveias. 

Excelente. Um dos mais bonitos e movimentados jogos de labirinto. 
Sobrevoe o mundo inimigo defendendo sua nave. 

Tente pintar o video combat endo os chatos que tentam impedir. 
Ultrapasse obstAculos e a pan he os tesouros oscapando dos pingos. 
Adventure mesclado com labirinto. Excepcionalll 
Mais um combate a6reo. bom programa no ginero. 

Fapa uma incursAo ao territ6rk> inimigo para recuperar seu balSo. 
Aventura baseada no filme Load Runner. 

Estik) packman. Considerado o melhor deles. Voc4 cria labirintos. 

A grande sensapAo S6 vendo para crer. 

Capture suas coroas esc a pan do das serpentes e dos fantasmas. 
Lutadeboxe. Tridimensional. Sensac tonal. 

Indescritlvoi. Labirinto tridimensional. Um dos melhores do eno. 
Outra sonsa<;Ao. Dos mais vendidos nos EUA. 

Ajude o coelho a comer suas cenouras. 

Jogo de basquete muito difundido nos EUA. Um contra um. 

Similar ao Buzzard Bait. GrAficosde altfssima qualidado 
Ajude o pinguim a eliminar os insetos com seus cubos de goto. 
Empolganto corrida c/ reabastedmento e troca do pneus. At6 2 jog. 
Considerado junto c/ Marble Maze, os dots molhoros prog, do ano. 
Galeria de tiros de um parque de diversbas. Muito bonito. 

Proteja seu comboio do ataque dos alienlgenas. 



TRADICIONAIS 

100.00 A t radio on al. em alia resolugAo. LindisstmaMI 

48.00 Para os amantes deste tipo de jogo. 

48.00 T radicional passa tempo oriental emtabuleiro. 

48.00 0 banco imobilidrio que voed jd conhece. Divertidissimo. 



SIMULADORES 

Ingl6s 80,00 Simuladoi. Cabins da Boeing 747. 

Ingl6s 100,00 Simuladoi do vSo c/ combate onlre dois comput. ou contra oseu. 
Pori. 80,00 Simuladoi de vdo em lempo de guorra. 

APLICATIVO S ’ 

Ingifts 800.00 Sistema ooeracional multiusuArio. multitarefa em real time. 

Port. 250,00 Light pen. Acompanha software e manual. 

Port. 500,00 Capacidade para 900 assinantes. 

Port. 500,00 Capacidade para 630 itens. 

Inglfts 500,00 Sist. integrado composto de secs programas baseado no Lotus 1.2.3 
I Inglfts 400.00 A grande sensa^Ao em bancos de dados. 

Inglfts 300,00 0 grande conhecido dos usuftrios. agora com controle por teclado. 

utilitArios 

NAo 300,00 Analisador de funcionamento de drives com vArios tipos de teste. 
Inglfts 120,00 Transforma o video de seu color para alta resolupAo. Bern versAtil. 
Inglfts 320,00 0 mais poderoso compilador. 

Inglfts 360,00 Potente protet or de programas criados por voeft. Ninguftm abre. 
NAo 280,00 Duplicadordefitas. Duplicates protegidas. menos da Micromaq. 
Inglfts 200,00 28 rotinas utHitArias para seus programas. Agora em fita. 



Importante, Os programas que tenham opc§o F ou D esl§o com seus prepos na versSo Fita. Para 
aquisipao em Disco, anexar CzS 80,00 de Disco e Embalagem. » >1 A A 



Faca seu pedido pelo correio, 
para o enderego abaixo, 
anexando Cheque ou Vale Postal e 
receba, SEM MAIS DESPESAS, 
,em aproximadamente 15 dias. 



r.eO e 'T', 



0* 



JOGOS 

ANTARTIDA ADVENTURE - Um gostoso passeio pela 
Antartida acompanhado de um pinguim, Preqo: A 

KEVSTONE KAPERS - Pienda o ladrSo antes que seu 
lempo acabe. Pie?o: A 

GALAGA - IdSntico ao "FANTASTIC" do fliperama. 
Realmente FANTASTICO. Prepo: A 

LUNAR — Um passeio com seu jeep lunar pode nao ser 
muito tranquilo. Prepo: A 

PADEIRO MALUCO - Nesta padaria exislem raposas 
prontas a acabar com a sua produp^o, Nao deixe islo acontecer, 
Prepo: A 

GALAX - Num mundo irreal e inenanSvel vocS deve lutar 
para sobreviver. Prepo: A 

ROAD FIGHTER — Escothido na Europa como o melhor 
game para a linha MSX em 1985. Eletrizanle corrida de carros 
por praias, estradas. ponies e etc. Prepo: B 

COSMO - Defends a sua base contra os invssores. 9 
nlveis de dificuldade. Prepo: A 

CANNON — Voc8 6 o ultimo soldado da sua artilharia. 
Defends o seu forte usando o canhSo. Os tanques e aviSes 
inimigos esfSo atacando. Prepo: A 

COELHO MALUCO - Escale 0 prGdio evitando os outros 
animais e pegando o mdximo de cenouras possivel. Prepo: A 
DIZZY BALL - As pedras v8o rolar. N8o deixe que caiam 
sobre vocS. Quebre todas posslveis para pegar os poles. R A 
FLIPPER - Sinta-se numa das melhores mesas de FLI- 
PERAMA. Prepo: A 

FAIXA PRETA - Lule contra animais e lutadores assas- 
sinos. Prepo: A 

BOEING — Simulador de vflo. Prepo: B 
POLAR STAR - Num planeta dislante voefi deve invadir 
as bases do inimigo e destrui-las. Prepo: A 

SHADOW ADVENTURE - Voc6 era 0 piloto da um 
avi8o espi8o que caiu na SIBERIA. N8o se deixe pegar pelos 
inimigos nem frio. Requer conbecimentos de INGLES. R A 
SUPER COBRA — Com o seu heliebptero invada a base 
inimiga sem ser capturado. Prepo: A 

TURBOAT - Enfrente os perigos com a sua lancha a jato 
dentro de um rio. Prepo: A 

MR. CHIN — 0 grande equilibria de pratos, Mr. Chin. 
n8o pode deixar que os pratos caiam nem ser pego por terriveis 
assassinos. Prepo: A 

FROGGER - Ajude o sapo atravessar a rua e o rio. P A 
ARVORE MAGICA - Suba o mais alto que puder nesta 
8rvore e replela de armadilhas: Prepo: A 

OLIMPIADA I - Alguns desafios para voefi provar que 6 
um atleta. Prepo: A 

OLIMPIADAS II - Como o anterior, mostre que met) 6 
um atleta. Prepo: A 

COLUMBIA - Defenda seu planeta contra as inumeras 
naves inimigas. Como no Flipper, Prepo: A 

PITFALL II - Aventura na floresta (tipo ATARI). P. A 
RIVER RAID - Id&ntico ao do COLECO. Avance rio 
adentro combatendo os inimigos. Prepo: A 

CORRIDA MALUCA - Pegue todas as bandeiras denlro 
do labirinto mas fuja dos carros que Ihe persoguem. SENSA- 
CIONAL. Prepo: A 

DECATHLON - Igual ao do Flipperama. Prepo: A 
HIPER SPORT I - Provas esporlivas. Prepo: A 
HIPER SPORT II - IDEM . Tiro ao alvo. Prepo: A 
HERO - Deslrua obslSculos, enfrente monstros e animais 
nesta emocionante aventura dentro de um verdadeiro labirinto, 
e salve sua herofna. Prepo: A 

LE MANS — Sensacional corrida de carros. Mostre suas 
habilidades como piloto. Prepo: A 

GHOSTBUSTERS — Reviva as emopdes do filme "Os 
Capas Fanlasmas". Prepo: A 

EPUCATIVOS 

MATEMATICA INFANTIL cl - Para crianpas em fase 
de aprendizado. Exercila as quatro operap5es b8sicas. Prepo: A 
MACACO ACADEMICO — Jogo matemStico com as 
quatro operapdes bdsicas. Prepo: A 

APLICATIVOS 

MALA POSTAL Cl — Um super banco de dados. Total 
facilidade em apagar, alterar, buscar, ordenar e inserir regislros. 

3 tipos de relatdrios (inclusive etiquetas). M6todo de ordenap8o 
r8pido. Capacidade para 100 registros com 1 campo para obser- 
vapoes de 30 caracleres. Prepo: C 

TASWORD — Um poderosissimo processador de textos. 
Uma quantidade enorme de recursos. Man em inglfts. Prepo: C 
MAGIA — Numerologia, horbscopo e biorritmo. Prepo: A 
CALENDARIO — Calendftrio, tabela de convers8o 
CRUZEIRO x CRUZADO. Prepo: A 

GRAFICOS BIDIMENSIONAIS - Uma poderosa ajuda 
na visualizapSo das funpSes MATEMATICAS criadas pelo 
usuftrio. Aceita qualquer funpSo matemfttica. Prepo: B 

Cl - PROGRAMAS DESENVOLVIDOS NA MICROMAQ 
TABELA: A - CzS 50,00 '6 - CzS 70,00 C - CzS 120,00 - 
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Rotulador de fitas 

Gelson Dias Santos 



0 programa Rotulador de fitas 
cassete foi desenvolvido em um 
TK90X, equipado com uma impres- 
sora Alphacon 32, com o objetivo de 
por em ordem a minha fitoteca. Tudo 
comegou quando o numero de 
cassetes da mesma passou a aumentar 
progressivamente, dificultando a i- 
dentificafUo do conteudo de cada 
uma. Ocorre que eu tenho por hdbito 
comprar fitas de uma unica marca, 
conseqiientemente, por fora todas as 
fitas sSo iguais. 

Aldm disso, eu n3o tinha controle 
sobre o que gravar em determinada 
fita, resuftando em uma salada na 
qual cada uma continha ao mesmo 
tempo jogos, aplicativos, programas 
em desenvolvimento etc., tornando 
ainda mais diffcil a localizagilo dos 
programas. 

A fim de resolver estes problemas, 
elaborei o programa Rotulador. 

0 PROGRAMA 




Flgura 1 - capa 



* CONTEUDO LflDO 



ZNZCZO/ PIM 



NOME DO PROGPRMR: 



Rotulador foi desenvolvido para Fi P ,ra 2 - ,llta 
ser usado com as impressoras Timex 
Sinclair 2040 ou Alphacon 32. Ou- 
tras impressoras n3o poderSo ser usa- 
das (como a ZX Printer) devido as 
diferengas no formato de impressSo. 

A fungao do programa 6, como o 
nome diz, imprimir rdtulos para os cassetes. A16m disso, ele 
gera tambdm uma lista para facilitar o registro de cada progra- 
ma gravado. 

Ao ser executado, ele inicia mostrando o menu de opgOes. 
Digitando 1 , o programa solicita o nome da fita, que poderd 
ter atd 1 2 caracteres quaisquer, compreendidos entre o espago 
(cddigo 32) atd o simbolo delta (cddigo 127), conforme mos- 
tra a pdgina D1 do manual do TK90X. A seguir, ele solicita o 
numero de sdrie da fita na fitoteca, o qual pode ir de 1 a 999. 
Informados estes dados, serd impressa uma capa na forma da 
figura 1 . 

A op93o 2 imprime uma lista padronizada para anota93o 
dos conteudos das fitas cassete (figura 2). 

Na listagem do programa, os caracteres das linhas 260, 
290, 830, 850 e 860, que est3o entre aspas, s3o caracteres 
grdficos (UDGs). 

Escrito inteiramente em* BASIC, o programa pordm utiliza 
alguns comandos PEEK estratdgicos. 

Na linha 700, inicia -se uma rotina de amplia93o dos carac- 
teres do micro, a fim de criar o tftulo da fita. Esta rotina 



1 oeM flTei 
Todo* o» CHR6 L 
s ir dt9it*dot no 



Hhr* 



5 LET ip *135 DIM f»«3) 
1? PRINT 



IS PRINT "• 



"• ROTULRDOR DE P ITRS 



13 PRINT 

c ;* s5 K5Et ( 

••• 

is print ;;*«•** 

## 16 # PRXNT*"*t GELSON DIRS SRNTO 

8 vsi 






320 LET CP-167- ilEII n»/S» *16 
700 POR v.l TO LEN n* 

"10 LET « ■ (CODE nttviO&i *6*156 

720 POR C ■€ TO (t *7 
730 LET t-PEEh C 
740 POP b«l TO 16 STEP 2 
730 IP (l/8)OlNT U/2) THEN PL 
OT (CP-bl.tp PLOT ( CP -b> *1 . IP 
PLOT ■ CP -b> IP -1 PLOT < CP-b) 

l 760 LET t 
770 NEXT _ 

775 U E T '. P ■ tp -2 
760 NEXT c 
720 LET CP >CP • 16 
600 NEXT v 
610 COPT CL5 



■INT l 1/2) 



LET ip ■ 135 



17 print 

*100 PRINT RT 10,2, 

X: PLRSH 



ESCOLHR OPCR 

PRINT RT 
RT 19,3, “3 



6*0 NEXT n 



j , j , , g 

120 PRINT RT 1375. CRPR PRRR 
CRSSETTE “ ; RT 16,8; LISTfl DE CO 
NTEUDO” , R^ 19,5,"- PIM DO PROGRR 






NTE 

M 13© LET Of aINKEYt IP OR 

0f>"5" THEN GOTO 130 
140 IP 0 • 3” THEN STOP 

150 IP Of- 2" THEN 00T0 900 
160 IP PEEK USR ••"<>265 THEN P 
OR r-USR TO USR "u"-l PERC- 

P POKE t , P NEXT t 
170 INPUT "NOME DR PITR 7 0.4* . 

12 CbCACt . i n* 

180 IP LEN n f > 12 THEN PRINT BO, 
"NONE INURLIDO": SOUND 1,1 QOTO 
170 

190 INPUT "NUMERO DR PITR 7 <r>» 
X.3 difli 10*) "iOUB 
200 IP nun < 1 OP OUP>999 THEN PP 
INT BO; "NUMERO INURLIDO" SOUND 
1,1: GOTO 190 
210 LET t • ■ ST R t num 
220 IP LEN S6<3 THEN LET »§a"0" 
•II: GOTO 220 

230 POR fal TO 3 LET r»(r»-CMR 
• (CODE s • ( r r ♦ 104 > NEXT r 
240 PRINT PRINT "LIGUE R IMPP 
ESSORR E TECLE ENTER" INPUT Ot 



7" 



li^T^BMeLesseseessMe^ 



- _ _ LPRINT 

690 RUN 

900 PRINT PRINT "LIGUE R IMPP 
ESSORR E TECLE ENTER" INPUT q» 
910 CLS 

920 PRINT "PITR NUM . • CONT 

EUDO LRGO " 

930 PRINT " aaaaaiaiaaaaaaaaaaaa 

point print »h 
NICZO/ PIM I NOME DO PROGRRMR 1 
940 POP X ■ 1 TO 9 
950 PRINT "I |" 

960 PRINT "I / | 



960 COPY 

990 INPUT "OUTRfi LlSTR ? (S/M) 

!P 2f*"2" °0 0 6 ■ " THEN L 

LPRINT LPRINT GOTO 9 



60 

1000 RUN. 

1020 DATA 255 
9, 129,255,25'- 



129, 

ills?*' 

- ":5 



r 



! 70 NEXT . 

90 PRINT RT 2, 

".«t 






, 1. • 






" • RT 10,1," ”, f 



12 . 1 ; "' ", riT6> ; •• 

300 PRINT RT 1,1; 
310 POR R-4 TO 7: 



r%<2~\ " ";A 
RT 13,1; 

PR1NT - 3*2* 



3, 183,255.25'. 

bSS'iri-hM W.ii 



29.12 ,129.12 



53,15 
. 7,27. 
95 . 19 
55,25 

5.i2, 



7,27.3 . 

4.46.25 

^07.25 



A7,lA6, 

u, 102 231 . 195 , 219 .219 .25 .102.0. 

31 .31.24 .24.24.256.255.0 95,223, 

219.219.219.251 . 115.0. 126.255 .21 
9 219 219.251 1 14 . 0 , 3 . 3 . 24 3 . 251 . 

31.15. 7.0. 102.255.219.219.219.25 

5.102.0. 76.226.216.216.219.255.1 

26.0 

1040 DRTR 
26.64 ,32,1. 



Rotulador 

usa como referenda a tabela de caracteres do micro, que estd 
na ROM a partir do enderego 15616. 

Na linha 160, foi utilizado enderegamento indireto via 
USR “a” e USR “u”-l para que o programa possa rodar 
tanto em mdquinas com 16 Kb quanto nas de 48 Kb de RAM. 

APLICACAO 

Acredito que este programa lhe serd piuito util. Sugiro que 
vocS utilize nomes de modo a estabelecer 0 tipo de conteudo 
que cada fita possui. Eu utilizo nomes como Jogos 1, Dados 2 
ou Trabalho 1. Trabalho 6 o nome que dou aos cassetes desti- 
nados a armazenar programas incompletos ou em desenvolvi- 
mento (tambdm poderia ser Rascunho). 

m 

Gelson Dies Santos possui conhecimantos de elatrOnica a 6 atualmenta 
operador do computador Burroughs B6700, da Universidade Federal do 
Bio Grande do Sul. Ele possui um TK90X e suas ireas de interesse sSo 
a corrputefSo grifica, teleprocessamento a lazor eletrOnico. 



38 



MICRO SISTEMAS, junho/86 




Disk 



O f uturo, 
nosso velho 
conhecido. 



Como se prevG o futuro? 

A NCR tem uma IGrmula Infallvel, 
baseada em 100 anos de experience. 
Experlfincla que comegou no 



lan 9 amento da sua prlmeira caixa 
registradora: "Mdqulna que fazcontas! 



Imagine s6 onde este mundo val parar! ’ 
E. enquanto as pessoas admiradas 



E. enquanto as pessoas admiradas 
tentavam Imaginar, a NCR nlo parou. 

Vlrou 0 sdculo somando, 
inventando. pesquisando. crescendo 
no combrcio. se aglgantando na 
Inlormdtlca 

Multlpllcou se em realizagdes pelo 
mundo lodo. 

Em 50 anos de Brasil chegou a 
63.000 funclondrlos em 28 fAbricas. 

A NCR nflo previu esse (uturo. 

Apenas acreditou no taiento e na 
capacidade criatlva do bomem. 

E trabalhou. Essa 6 a fdrmula mAgica 

Para a NCR o (uturo 6 um velho 
conhecido. 

Pols (uturo nao se prevfe 






NCR 












Deus ctiou 



kmP 



Se voce quer ter sosSego na escolha 
de cabos para Audio, em eletromca ou 
informdtica. exija Audioflex. 

Audioflex A usado na interligapao. 
a nlvel de Audio, de mformarpoes dentro ou 
fora dos equipamentos. 

Tern excelentes caracteristicas 
elAtricas, porque sua qualidade A controlada 
em toda linha do produ^Ao. e A foito com 
o cuidado que seu som merece. 



Cabos Especiais e Sistemas Lt 

BR 1 16/km 25 - Cx Postal 146 - 06800 -g 
SP - Tel.: 01 1/494-2433 Pabx - Telex 0 
KMPL - BR Telegramas 
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Zx 81 Zx 81 Zx 81 Zx 8 



Baguncinha 

James Vassalo Donadelli e Wilson Shiguemi Yamada 



Para quem deseja passar algumas flo- 
ras agraddveis e divertidas nos fins-de- 
semana, Baguncinha A realmente uma 
boa op?ao. 

Junte a f am ilia ou os amigos, escolha 
alguem para desafiar e fa$a-o fundir a 
cuca com seu desafio. 

Como o prdprio nome ja diz, o pro- 
grama A uma brincadeira em que o mi- 
cro, fazendo o papel de bagunsador, 
troca de ordem todas as letras de uma 
palavra deliberadamentc colocada. E ele 
faz isso t3o bem feito que atA voce, o 
desafiante, ficara impressionado com o 
resultado. 
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97 
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A6 


AC 


BA 


B3 
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HD 


HD 
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34 
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39 
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30 


26 


37 
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2/ 


3E 
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38 
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34 


33 
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29 
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31 


31 


2E 


00 


00 


00 
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IB 


38 
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3E 


2D 


32 


2b 


29 


16562 


26 


00 


01 


D6 


02 


2H 


00 


40 
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09 


54 


SD 


01 


B5 


02 


2h 


OL 


16578 


40 


09 


ED 


bb 


09 


2H 


00 


40 
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11 


21 


00 


19 


D1 


01 


Dd 
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02 
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Listagem 1 



Como nSo vimos nada parecido pu- 
blicado por MICRO SISTEMAS, resolve- 
mos compartilhar essa diversio com 
voces, usuArios da linha ZX81, que pos- 
suem um micro com no mmimo 16 Kb 
de RAM. Por outro lado, esse mesmo 
programa poderd ser rodado em outros 
equipamentos, bastando fazer as altera- 
9 Qes necessdrias, pois tern como rotina 
principal as linhas que v5o de 530 a 
640. 

O JOGO 

Enquanto se apresenta, o programa A 
auto-explicativo. 

Apos ter digitado a palavra e teclado 
NEW LINE, o micro a apresentara, 
ainda em sua forma original, acima da 
linha central do video para que o desa- 
fiante se certifique de have -la digitado 
corretamente. Em seguida, o programa 
entra em FAST para retomar com a 
mesma palavra totalmente ininteligivel. 
Para finalizar, aqui vao algumas dicas: 

1 - Os participates poderao combi- 
nar entre si, antes do inicio, a classifica- 
9 S 0 das palavras a serem adotadas (ex.: 
so verbos, nomes, substantivos, etc.). 
2-0 jogo torna-se muito interessan- 
te quando se coloca uma palavra com- 



posta (separada por hffen ou espa 9 o). 
Experimentem com MICRO SISTEMAS 
e vejam o resultado. 

3 - Podera ser cronometrado um 
tempo entre uma letra e outra para que 
o desafiado nSo demore muito. 

O PROGRAMA 

Para iniciar a digita 93 o, crie uma li- 
nha REM com 84 caracteres quaisquer. 
Depois, com a ajuda do Micro Bug ou 
o Monitor Assembler (MS n? 23), de 
entrada aos cddigos hexadecimais da lis- 
tagem 1. Terminando essa fase, digite 



a listagem 2, em BASIC. 

Para finalizar, de uma boa conferida, 
prepare o gravador e comande, via te- 
clado, GOTO 1020. 

Bom divertimento. 



James Vassalo Donadelli a Wilson Shiguemi 
Yamada, sao T6cnicos Agrimensores formados 
pelo Coldgio Tdcnico de Jundiai, Sao Paulo. 
Atualmente, trabalham na drea de construfio 
civil utilizando calculadoras programdveis. 
Eles ainda sao usudrios do TK85, onde desen- 
volvem programas para a drea de engenharia 
topogrdfica e tambdm para lazer. 



10 PEM (84 CARAC. QURISQUER) 
20 PRINT AT 1,0; 




: 5EM QUE 0 



QUALQUER 



E 

D 

MR 



30 GOSUB 23 i 

40 PRINT AT 1,0, " >BAGUNCINHA E 
UMA BRINCADEIRA MUITO SIMPLE 
E DIUERTIDA" 

50 GOSUB 220 

60 PRINT AT 20,0;">ESTE JOGO E 
ISPUTAD0 ENTRE 2 PESS0AS 
E DESAFIADO" 

SUB 230 

80 PRINT AT 1,0;" 

SAFI ADO UE JA , 0 
IGITA UMA PALAURA 
X. 16 LETRAS) E N.L. 

90 GOSUB 290 
100 PRINT AT 20,0; 

R SE ENCARREGARA* 

A* -LA" 

110 GOSUB 230 

120 PRINT AT 1,0; ">A0 DESAFIADO 
CABE A TAREFA DE DESCOBRIR ES 
SA PALAURA, DIGITAN DO UMA LETRA 
CADA UEZ E NEWLINE" 

130 GOSUB 290 
140 PRINT AT 20,0; 

A. FORA DE P0SICA0, 

1 P0NT0" 

150 GOSUB 230 
160 PRINT AT 1,0;' 

R T A M - S E" 

170 GOSUB 290 
180 PRINT AT 19,0 



! 0 C0MPUTAD0 
DE EMBARALH 



> A CADA LETR 
DARA" A0 HI 




D I U I 



190 PRINT AT 11,4; "PA RA INICIAR 
TECLE ; B > " , AT 11,23; “Mi" 

200 IF NOT INKEY$="B" THEN GOTO 
190 

210 CLS 

220 GOTO 350 

230 FOR X = 1 TO 150 

240 NEXT X 

250 FOR X=i TO 16 

260 RAND JSP 16564 

270 NEXT X 

280 RETURN 

290 FOP X = 1 TO 150 

300 NEXT X 

310 FOR X=i TO 16 

320 RAND USR 16583 

330 NEXT X 

340 RETURN 

350 PRINT AT 7.0; D 

IGITE UMA PALAURA" 

370 INPUT A* 

375 -IF LEN AS > 16 THEN GOTO 370 
380 DIM P$ (LEN AS) 

390 FOR K = 1 TO LEN AS 
400 LET P $ ( K ) = A $ ( K TO K) 

410 NEXT K. 

420 LET E=PI-PI 



430 FOR. K = 1 TO LEN AS 
440 PRINT AT 14,E;P*(K); 

450 LET E=E+2 

460 NEXT K 

470 FOR C=1 TO 30 

480 NEXT C 

490 PRINT AT 7,0;;; 

500 PRINT AT 14,0;;;- 

510 FOR F =1 TO 10 
520 NEXT F 

530 REM ROTINA DA TROCA 
540 DIM LiLEN AS) 

550 FAST 
560 RAND 

570 LET L ( 1) = INT (RNDiLEN AS)+1 

580 FOR X=2 TO LEN AS 

590 LET L(X)=INT (RND*LEN ASI+1 

600 FOR Y=1 TO X-l 

610 IF L(X)=L(Y) THEN GOTO 590 

620 NEXT Y 

630 NEXT X 

640 SLOU 

650 FOR C=1 TO 10 

660 NEXT C 

670 LET E=PI-PI 

680 FOR K = 1 TO LEN AS 

690 PRINT AT 14 , E; PS (L (K) ) 

700 LET E=E + 2 
710 NEXT K 
720 LET Z=PI/PI 
730 LET S=Z 
740 LET D=PI-PI 

750 PRINT AT 7 , 0 ;" DESAFIADO : AD 
IUINHE ESTA PALAURA" 

760 INPUT Us 

770 IF LEN US>1 THEN GOTO 760 
780 IF US=PS!Z) THEN GOTO 860 
790 PRINT AT 18,0; "NAG E*>";US. 

" <“ 

800 FOR 0=1 TO 25 

810 NEXT C 

820 PRINT AT 18,0;" 

S30 PRINT AT 19 , 0; "ERRQS ; ";S 

840 LET S=S+1 

850 GOTO 760 

860 PRINT AT 16 , D; PS (Z) ; 

870 IF Z=LEN AS THEN GOTO 910 

880 LET D=D+2 

890 LET Z=Z+1 

900 GOTO 760 

910 PRINT AT 7,0; " _ 

920 FOR F=1 TO 12 

930 PRINT AT 5, 10: "13333233133 
940 PRINT AT 5 , 10 ; " *P ARABENS * 1 
950 NEXT F 

960 PRINT AT 21,0; "TECLE <B> PA 
RA OUTRA PALAURA" 

970 PRINT AT 21.6; "13" 

980 IF INKEY$="" THEN GOTO 960 
990 IF NOT INKEY$="B" THEN STOP 

1000 CLS 

1010 GOTO 350 

1020 SAUE "BAGUNCINHS" 

1030 PUN 



Listagem 2 



MICRO SISTEMAS. junho/86 



41 







trs-80 trs-80 trs-80 trs-80 



Videocop 

Eduardo Andrade Lima 



0 Videocop foi desenvolvido em Assembler num TRS-80 
modelo I com uma impressora Epson MX-80, podendo ser exe- 
cutado em computadores compativeis. Seu objetivo e fazer 
uma copia do video para a impressora. Qualquer carfter, seja 
ele grafico ou alfanumerico, sera copiado respeitando a sua po- 
si<;So na tela. Isto e, se o carater estiver situado na metade de 
uma linha na tela, ele ficara na metade de uma linha na impres- 
sora. 

Se voce possui o NEWDOS/80, este programa produz o 
mcsmo efeito das teclas JKL quando tecladas simultaneamen- 
te, porem com a vantagem de poder rodar no LEVEL II BA- 
SIC, dentro de programas e, inclusive, em Sistemas Operacio- 
nais (DOS). 

Quando desejar interromper a copia, tecle < BREAK >, 
o que ocasionara a finalizafao do programa. 

Voce pode mudar a origem do programa (linha 170) pa- 
ra qualquer lugar da RAM, de acordo com as suas necessidades 
e com seu equipamento, desde que tome cuidado para n5o co- 



AGORA VOCE PODE L/GAR 
QUALQUER IMPRESSORA 
PAR ALE LA AO SEU CP-400 



COM UNICACAO 
OUTRO T — 
I pi iiiKmco stniAi I 



n 

COMUTADOR SI.RlAi | 




1 1 

IMPRESSORA 
CONVERSOR 
SERIAL! PARALELO 




TO 


h 


4 


D O 






f 



MlCROCOMPUTADOP 




OESENHO ESOUEMATICO OE UMA DAS UQACOES POSSlVEIS 



CONVERSOR 
SERIAL/PARALELO 

Agora voce pode ligar lodas 
as impressoras paralelas do 
mercado ao seu micro O 
Convenor Serial/Paralelo per- 
mile a voce conectar qualquer 
impressora paralela (padrSo 
cetronics- it saida serial do seu 
micro com a vantagem de, 
com urn simples toque, acio- 
nar tambbm qualquer periferi- 
co serial, sem a necessidade 
de troca de cabos. 

Mlrrn Fni 

Produtos e Projetos Eletronicos Ltda. 
Rua Pedro Teixeira, 13 
04550 - SSo Paulo - SP. 

A VEND* TAMBEM NA: 

• CINOTICA: (011)36 6»6I • CITY MICRO'S: (011)632 0456 
• CLARI7RON: (Oil) 210 7681 • FILCRES: (0111 223-7388 
• NO RIO: MIKROS (021) 205 4346 (INFOSHOPPINO) 

ESTAMOS CADASTRANDO DISTRIBUIDORES 



COMUTADOR SERIAL 

O Comutador Serial e um 

outro aparelho que permite a 
voce duplicar a saida serial do 
seu micro Com ele voce po- 
dera conectar dois perifericos 
a saida serial do seu micro, ao 
mesmo tempo, E para utilizS- 
los basta girar o botao, sem 
aquela incomoda operaqao de 
troca de cabos. 

Usando em conjunto 
estes equipamentos. voce 
pode ligar. porexemplo uma impressora 
paralela. um Modem e qualquer 
outro perilerico serial de sua escolha 



Para esciarecer qualq 
duvida ou conhece 
oossa linha complei 

»e Cabos. Penlencc 
eSofiware. iiguepai 

, (011) 533-2321 

servigo de alendimento 

-iieme-ou escreva - , 



loca-lo em regifies usadas por outros programas que estejam 
sendo rodados paralelamente. 

Devido a grande versatilidade do Videocop, vale a pena 
perder dez minutos e digita-lo, pois este podera economizar 
horas perdidas na elabora?3o de listagens e graficos na impres- 
sora. 





OO lOO * 
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00110 1 


» VIDEQCOP / CMD - VERSAO 1.1 * 




00120 > 


« * EDUARDO ANDRADE LIMA ■> « 




00130 | 


* CAIXA POSTAL > 34.022 * 




00140 i 


» CEP 


22.472 / RIO DE JANEIRO * 




00130 j 


* TRS 


-80 MOD. 1 E COMPATIVEIS t 




00160 ; 


*»**••*»*»*««•**» 


7D00 


00170 


ORQ 


7D00H 


7DOO 


00180 INICIO EOU 


* 


3COO 


00190 VIDEO 


EOU 


3C00H 


7D00 DD21003C 00200 


LD 


IX, VIDEO 


7D04 010004 


00210 


LD 


BC, 1024 


7D07 2640 


00220 


LD 


H, 64 


7D09 3EOD 


00230 


LD 


A, 13 


7D0B CD3B00 


00240 


CALL 


3BH 


7D0E DD7E00 


00230 LOOP 


LD 


A, < I X > 


7D1 1 FE1F 


00260 


CP 


1FH 


7D1 3 DC617D 


00270 


CALL 


C, ROT 4 


7D16 FE1F 


00280 


CP 


1FH 


7D1 8 CCS37D 


00290 


CALL 


Z , ROT 1 


7D1B FE20 


00300 


CP 


20H 


7D1D CC337D 


00310 


CALL 


z,roti 


7D20 FE7F 


00320 


CP 


127 


7D22 CC537D 


00330 


CALL 


Z , ROT 1 


7D23 FE80 


00340 


CP 


128 


7D27 CC337D 


00350 


CALL 


Z , ROT 1 


7D2A FECO 


00360 


CP 


OCOH 


7D2C D4337D 


00370 


CALL 


NC, ROT t 


7D2F FEB1 


00380 


CP 


129 


7D31 D4S67D 


00390 


CALL 


NC, R0T2 


7D34 CD3B00 


00400 


CALL 


3BH 


7D37 DD23 


00410 


INC 


IX 


7D39 25 


00420 


DEC 


H 


7D3A OB 


00430 


DEC 


BC 


7D3B 78 


00440 


LD 


A, B 


7D3C B1 


00450 


OR 


c 


7D3D FEOO 


00460 


CP 


0011 


7D3F CA647D 


00470 


JP 


Z, FIM 


7D42 7C 


00480 


LD 


A. I I 


7D43 FEOO 


00490 


CP 


OOH 


7D43 CC597D 


00300 


CALI. 


Z . R0T3 


7D48 3A4030 


00510 


LD 


A. (384 OH) 


7D4B CB57 


00320 


BIT 


2. A 


7D4D C2647D 


00530 


JP 


NZ,FIM 


7D50 C30E7D 


00540 


JP 


LOOP 


7D33 3E20 


00530 ROT 1 


LD 


A, 20H 


7D33 C9 


00360 


RET 




7D56 C620 


00370 R0T2 


ADD 


A, 32 


7D5Q C9 


00580 


RET 




7D59 2640 


00590 ROT 3 


ID 


H, 64 


7D5B 3E0D 


00600 


LD 


A. 13 


7DSD CD3B00 


00610 


CALL 


3BH 


7D60 C9 


00620 


RET 




7 DM C640 


00630 ROT 4 


ADD 


A. 64 


7D63 C9 


00640 


RET 




7D64 3E0D 


00650 FIM 


LD 


A. 13 


7D66 CD3B00 


00660 


CALL 


3BH 


7D69 C9 


00670 


RET 




7D00 


00680 


END 


INICIO 


OOOOO TOTAL 


ERRORS 




FIM 7D64 


00650 00470 


00530 




INICIO 7DOO 


00180 00680 






LOOP 7D0E 


00230 00340 






ROT 1 7D53 


00550 00290 


00310 00330 00350 00370 


R0T2 7D36 


00570 00390 






ROT3 7D59 


00590 00300 






R0T4 7D61 


00630 00270 






VIDEO 3C06 


00190 00200 







Videocop 




Eduardo Andrade Lima estd terminando o segundo grau no Colegio 
Santo Agostinho, Rio de Janeiro. 
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ENERGIA DE 
EMERGENCE PARA 
MICR0C0MPUTAD0RES 



GERATRON200VA 





ESTE VOCE JA C0NHECI A 



GERATRON sempre foi a 
solugao ideal e economica para 
alimentagao de emergencia de 
microcomputadores da linha 
Apple e TRS-80. 

Agora voce tem disponivel o 
GERATRON PC 500. Com 
potencia de 500VA nominal e 
1 500VA de pico e dotado de 
chave de transference estatica 
e sincronizada, o GERATRON 
PC 500 garante o 
funcionamento ininterrupto dos 
micros compativeis com 
IBM-PC, na configuragao mais 
completa, durante varias horas 
apos a falta de rede eletrica. 

Mas se voce precisa de mais de 
500VA, a GUARDIAN tambem 
dispoe do modelo 750. 



GERATRON e marca 
registrada da GUARDIAN, 

EQUIPAMENTOS ELETRONICOS LTDA. 
MATRIZ 

Rua Dr. Gamier, 579 - Rocha 
CEP 20971 - Rio de Janeiro - RJ 
Tels.: Geral (021) 261 6458 
Vendas: (021) 201 0195 
Telex: (021) 34016 
FILIAL 

Alameda dos Ubiatans, 349 
CEP 04070 - Sao Paulo. SP 
Tel.: (01 1 ) 578-6226 




GUARDIAN 

ENERGIA A TODA PROVA 






zx spectrum zx spectrum zx spectrum zx spec 



Modificando caracteres 



Felipe Oriente 



Este programa serve para modificar o banco de caracteres 
de microcomputadores compativeis com o ZX Spectrum (TS 
2068 e TK90X). 

Para usl-lo, basta juntd-lo ao seu programa com o comando 
Merge ou entao digitar seu programa entre as linhas 1 e 9679. 

Se, entretanto, o seu micro so possuir 16 Kb de memoria, 
entao faija as seguintes altera<?Ses: 



linha 1 : substitua os dois 249 por 1 24 
linha 9680: substitua 48384 por 16384 
linha 9685: substitua 63744 por 31744 



Felipe Oriente curse atualmente o segundo grau no Coltgio Pio XII, em 
Sao Paulo. Ele possui um ZX Spectrum M um ano, com o qua I desen- 
volve programas 



1 POKE 23607,2*9. GOSUB 9680 9775 DATA 

POKE 23607,24-9 .0 

9679 STOP 9730 DATA “t" 

9680 LET b=483S4 FOR i =15616 TO 4,0 

16333 POKE ( i +b) , PEEK i: NEXT 9785 DATA "u" 

i 6.0 

9685 FOR i =1 TO 82 READ a$: LET 9790 DATA "V‘ 
ad r =637**+3*C0D£ a $ .0 



9690 


FOR . 


=0 


TO 7: READ 5: POKE 


9795 


DftTfl "X" 


3d r + 


, , 3 NEXT 


j : NEXT i 


.0 




9695 


DRTfi 


” a ' 


,0,0,56,8,56,72,52, 


9600 


DATA "a" 


0 








56 


9700 


OfiTfl 


• b ' 


,0,16.32,60,36,34,6 


9805 


DATA " 1 , 1 " 


0 0 








0 




970S 


DATA 


■'c* 


,0,0,24,36,32,48,12 


9310 


DATA "Z" 


.0 








0.0 




9710 


DATA 


d ' 


,0,8,4.60,36,68,60, 


3820 


DATA "A" 


0 








34,0 




9715 


DATA 


•£ 


,0,0,48,76,88 ,96 , 60 


3825 


DATA "B" 


. 0 








23,0 




S7S0 


DATA 


“ r 


,0,28,16,24,16,16,8 


9330 


DATA "C" 



9725 DATA "9" ,0,0, 56.44, 68, 60,1, 
60 

9727 DATA h " ,0 ,32,64 ,88, 100,63., 

8,0 

9729 DATA ' i " ,0,16.0,56, 16, 16,3, 



9729 DATA ' i 
0 

9730 DATA " j 
9735 DATA " > 
6 , 0 

9740 DATA 't 
4,0 

9745 DATA “b 
,0 

9750 DATA n 
,0 

9755 DATA 0 

i,e 

9760 DATA ' 'p 
64 , 32 

9765 DATA A 
3 

9770 DATA ’ r 
.0 



j“ ,0,8,0,4,4,4,52,24 
‘",0,64,32,40,48,40,3 

l", 0,32, 16, 16, 16, 20, 2 

r.i " ,0,0,40,84,84,84,30 

n ,0,0, 56 ,76,68.63,38 

0" ,0,0.18,76,63,100,2 

p " , 0 , 0 , 120 ,68,72,120, 

q " ,O,0, 56 , *4 , 68 , 60 , 4 , 

r", 0 , 0 . IS, 43, 32, 32 , 16 



2,3 

9835 DATA "D" 

24.0 

9840 DATA "E" 

60.0 

9845 DATA "F" 

32.0 

9850 DATA "6" 

2.0 

9855 DATA “H" 
34 .0 

9860 DATA 'I" 
8,0 

9665 DATA "J 
9870 DATA "K 1 

4.0 

9875 DATA "L 1 
0.0 

9880 DATA "A 

3.0 

9885 DATA "W 
IS . 0 

9890 DATA O' 

2.0 



0,0.60,64,56,8,120 

0,16,56,16,16,20,2 

0,0,36,68,88, 100,2 

,0,0,72,63,40,40, 16 

,0,0,72,40,16,40,36 

,0,0,36,36,68,56,4, 

,0,0,8,68,84,84,40, 

0,0,60,70,16,36,12 

,0,56,36,66, 126,66, 

,0,14,34,124,66,70, 

,0,48,76,64,64,50,1 

,0,43,76,66 .66,100, 

.0.60,64,120,64,66, 

,0,62.64,72,112,64, 

,0,56,64,76,66,50,1 

, 0,6S,66, 122,70,65, 

,0,28,10,10.40,40,2 

,0,4,4,2,66,66.60,0 
.3 4,72,112 .72,68,3 

,0,64,32,64,64,66,6 

,0,66, 102,90 ,66,68, 

,0.72,100,82,74,38, 

,0,48,76,66,66,50,1 



9895 DATA "P" 

32.0 

9900 DATA "0“ 

4.0 

990S DATA "R" 

34.0 

9913 DATA "8" 
,0 

9915 DATA "T" 

6 . 8.0 

9920 DATA "U" 
,0 

9925 DATA "V" 

4.0 

9930 DATA "X" 
8,e 

9935 DATA "Y" 
0 

9940 DATA "U" 
,0 

9945 DATA "2" 

20.0 

9950 DATA "1" 
,0 

9955 DATA ’2" 

4.0 

9960 DATA "3" 
,0 

9955 DATA "4" 
0 

9970 DATA "5" 

3.0 

9975 DATA "6" 

60.0 

9980 DATA "7" 
O 

9935 DATA "8" 
0,0 

9990 DATA "9" 
0,0 

9995 DATA "0" 



0,60,66,70,120.64, 
0,48,76,66,74,50,1 
0,60,66,70,120,66, 
0,56,64,60,2,50, 12 
0,124,144,144,16,1 
0,4,68,66,66,66,60 
0,4,100,66,66,36,2 
0,72,36,24,24,36,1 
0,2,68,40,16,15,8, 
.0,8,68,66,66,90,36 
,0,30,36,72,18,36,1 
0,24,40,40,8,10,60 
0,60,66,6,56,66,12 
0,60,2,12,68,66,60 
,0,8,24,40,74,60,3, 
.0,126,64,60,2,56,6 
,0,60,64,120,70,66, 
.0,60,66,4,8,16,16, 
,0,60,66,60,68,34,6 
,0,60,66,114,14,2,6 
,0,28, 100 ,74,82, 102 



Caracteres 



err o 



■ Em MS n? 55, na mat6ria "CBBS: 
a informapao via computador", pag. 
11, o telefone do ABBS Atari saiu 
errado. O numero correto 4: (Oil) 
454-7557. 



| Em MS n? 52, no programa "Micro- 
golf", p4g. 48, faltou a linha 125 da 
listagem. A linha 4 a seguinte: 

125 GOSUB 1010 

■ Em MS n? 55, no artigo "Mensa- 
gem de Erro no Color", p4g. 48, na 



quinta linha do quarto par4grafo, 
houve um erro de impressao. 0 certo 
4: . .ser4 exibida. Uma outra oppao, 

ao inv4s de limpar a tela e listar a linha 
de erro, seria acionar a rotina EDIT, 
colocando automaticamente tal linha 
em modo de edipao. . 



trs-color trs-color trs-color trs-col 



Jesus, Alegria dos Homens 



Marcus Porto Pereira 



Este programa, para a linha TRS-Color, executa a musica 
“Jesus, Alegria dos Homens”, tema do coral da Cantata, de 
J. S. Bach. 

As linhas de n? 10 a 70 apresentam o programa; na linha 
80 existe um POKE de velocidade (que pode ser retirado); e 
as linhas de 90 a 130 produzem a tela visualizada durante a 



execufJo da musica. Ao final da listagem estSo as linhas res- 
ponsdveis pela reproduce do som (de 380 a 420), e na linha 
430 encontra-se uma rotina de espera. 

Marcus Alexandre Porto Pereira 6 autodidata em BASIC e usuirio dos 
micros CP 400 e Color- 64. 



i0 "MARCUS ALEXANDRE 
20 "NITEROI-RJ 
30 CLS 

4 0 P R I N T " « « » •)<■ X- •)(• -X -X X X X X X X X X X X X X- X 
XXXXXXXXX ,/ 

50 PRINT032 r "i" 

6 0 P R INI o) i 0 0 r " J E S U S , A L E G R 1 A DOS 
HOMENS" 

70 P R I N T «) i 3 0 „ " T E M A DO CORAL DA C 
ANTATA 147" 

80 PR INT3216 , " J . S .BACH" 

9 0 P R IN T 8224," x x x x x « x x x x x -«• x « -x x x -x 

X X X X X X -X -X X X X -X •)(■ X " 

100 POKE 65493,0 
110 CLEAR 
.1.20 PM ODE 2,1 
130 COLOR 0,3 
140 PCLS 
1.50 GOSUB 250 

1.60 LINE ( 28 , 60 ) - ( 224 , 60 ) , PSET , B 
1.70 LINE <28, 120) - ( 224 , 60 ) , PSET,B 

i. 8 0 L T N E < 8 4 , 6 0 ) - < 8 4 , 1. 2 0 ) , P S E T 
1 9 0 L I N E < 5 6 , 0 6 0 ) - <56, 1. 2 0 ) , P 5 E T 
200 L I NE ( 1 1 2 , 60 ) - ( 1 i 2 , 1. 20 ) ,PSET 
2 1 0 L I N E < .1 4-0 , 6 0 ) - < 1 4 0 , 1. 2 0 ) , P S ET 
2 2 0 L 1 N E < .1 6 8 , 6 0 > - < 1 6 8 , 1. 2 0 ) , P S E T 
2 3 0 L I NE < 1. 9 6 , 6 0 ) - < 1 9 6 , .1. 20), P S E T 
2 4 0 I F 1 N K E Y $ » " 1. " T H E N 3 5 0 E L S E 2 4 0 
250 A-l 

260 FORF-A TO A+8 
2 7 0 L I H E < 5 2 + F , 6 0 ) - < 5 2 + F , 9 6 ) , P S E T 

280 NEXTF 

290 A=A+28 

300 IFA< 1.60 VHEN260 

31.0 A»108:8»i 16 

320 FORF-A TO B 

3 3 0 L I N E < F , 6 0 ) ~ < F , 96 ) , P R E SET 



340 NEXTs RETURN 
350 SCREEN 1,1. 

360 OR A«"B M2 8 , 1 40 y R 6 y N y R 5 y D 1 0 y L3 
y U 1 y L2 y B M46 , 1 43 y L5 y D3 y N ; R 4 y D4 y RS 
y B M60 , 1. 43 y L7 y D4 y R5 y D3 y L5 y B M64 1. 4 
3 y 0 7 y R 6 y U 7 y B M 8 3 , i 4 3 y L 7 0 4 R 6 D 3 L 6 - B 
M86,15£yNyU2yDl yLl" 

3 7 0 D RAW" B M 6 5 , 1 64 ; U J. 0 y R 6 y D 5 y N y L 6 
y 05 y BM7 6 , 1 56 y D8 y R 6 y BM94 , 157 y L5 y D 
3 y N ; R 4 y D4 y R 5 y BM .1 07 , 1 57 y L.6 y D7 y R5 ; 
03 y N y L 1. y R 1 y B Mi 12,1 64 y U7 y R 6 y D3 y L4 

yD2 y R 2 y D 2 y R3 y 8M124 , 164 y U7 y BM1.30, 
1. 64 y U7 y R 6 y 03 y N y L6 y D4" 

3 3 0 D R A W "B M 1 2 4 , 1. 7 8 y U 1. 0 y R 6 y D 1 y R 1 y 
D 1. y R 1 y 06 $ L 1 y 0 1. y L. 1. y D 1 y L.3 y BM 1 33 , 1. 7 
8 y U8 y R 5 y 08 y L.5 y B M 1 49 , 1. 78 y R 5 y 03 - L5 
ylJSyRS" 

3 9 0 DRAW " B M 1. 3 8 ,182 y D 5 y N y D6 y R 6 y N ; 
06 y 05 • : B M 1 5 1. , 1. 85 y 07 y R 5 y LJ7 ; L5 y B M l. 6 
2 , 184 y N y 07 y R4y D4 y R4 . 04 y R 4 ; 07 y BM.i. 
86 , 1 8 4 y L 5 y 08 y N y R 4 y 0 5 y R 5 y B M 1. 9 2 , 1 8 

4 - N ; 07 y R3 y 01 y R .1 y 0.1 y R 1 ;0i y R 1 y 01. y R 
2 y 03 y 07 y BM21.2 ,184; L5 y 03 y RS ; 04 ; L5 
// 

4 (.) 0 P L A Y " 0 3 1 T 4 L 4 0 2 G A B 0 3 D C C E D D G F ft 
GD02B GAB 03CDE0C02B AB G" 

410 P L AY" 081. 14 L 4 0 2 F « G A OF# A 0 3 C 0 2 B 
A B G A B 0 3 0 C C E 0 1) G F *i (3 D 0 2 8 G AB E 0 3 D C 0 2 B 
AGOGF#" 

4 2 0 P L. AY "03 1 T 4 L 4 0 2 G B 0 3 0 G D 0 2 B G B 0 3 
0FD02B GB 0 3 D E C 0 2 A F # A 0 3 C D 0.2 B G E G B 03 
C 0 2 A F t» D F U A 0 3 C 0 2 B A " 

430 P L. A Y " 0 3 1 T 4 L 4 0 2 B b A B 0 3 D C C E D D C F 
# G D 0 2 B G A B 0 3 C D £ D C 02 B A B G F It G A OF it AO 3 
C02BA" 

440 P L A Y " 0 3 1 T 4 L 4 0-2 B G A B 0 3 DC C E D 0 GF 
#GD02BGAB E030C02B AGDGFvi 02L.2 . G" 

.. 4 50 I r I N K E Y !!> = " " r H E N 4 5 0 EL S E G 0 T 0 3 0 



Jesus Alegria dos Homens 
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apple apple apple ap 



Musica no Apple 

Robert Pagnot 



Este programa, que roda em micros compativeis com o 
Apple II, com disk drive, e composto de duas partes: uma em 
Applesoft e outra em Assembler. A primeira, referente 3 lista- 
gem 1 , trata de todas as rotinas de inser?Io, corre$5o, listagem 
e gravafSo em disco de musicas. Observe sua estrutura: 

10 - 30 inicia$3o do programa; 

50 rotina de erro; 

100 - 210 rotina para processamento de dados; 

300 rotina para tocar a musica; 

400 - 490 rotina para entrar a musica via teclado; 

500 — 620 rotina para gravar a musica no disco; 

700 - 800 rotina para corre^So de dados; 

900 - 990 rotina para entrar a musica via disco; 

1100-1190 rotina de listagem no vi'deo/impressora; 

1200 - 1340 rotina para inserir/acrescentar notas; 

1400 - 1460 rotina para apagar notas; 

1500 - 1560 rotina para guardar dados na memdria; 

1600 — 1750 rotina para menus; 

2000 - 2080 inicializa$5o geral do programa; 

2100-2140 menu principal ; 

2200 - 2270 menu de modificafdes. 

JS o bloco em Assembler /u6502 (listagem 2) trata somente 
da reprodu93b das musicas. 

Para digitar a parte em Applesoft, primeiramente, tecle 
NEW e CR; s6 entSo inicie a digita93o da listagem 1, linha por 
linha, e depois confira-a. A seguir, digite SAVE MUSICA para 
gravar o programa no disco. 

Na hora da digita93o do Assembler, tecle CALL -151 e en- 
tre no monitor. Depois, inicie a digita93o da listagem 2 confor- 
me o modelo: 

*300: AD 60 6D C9 03 DO 01 60... 4C 00 03 e ‘CR’ 

*34B:BD 00 03 C9 FF DO 09 FE... atd o final e ‘CR’ 
Confira a listagem em Assembler e depois digite 3D0G para 
voltar ao BASIC. Grave a rotina Assembler usando BSAVE 
RM,AS300,LS5F. 

ROD AN IX) O PROGRAMA 



Digite RUN e aguarde um momento. Se tudo correr bem, 
serd apresentado um menu de op96es tipo Magic Window. Mo- 
vimente o cursor usando «— , — > ou ainda tecle o numero da 
op93o e ‘CR’ ou ent3o outra vez o numero da op93o, para acei- 
tar a escolha. Veja, abaixo, as op95es: 

Entrar do disco — Serd perguntado se voce quer o diretdrio do 
disco ou n3o. Digite S para sim e N para n3o. A seguir, o pro- 
grama lhe pedira o nome da musica ja gravada e carregara os 
dados, voltando ao menu principal apos terminada a opera93o. 
Entrar do teclado — Sera pedido o valor de um tempo (segun- 
do o metronomo — aparelho para marcar tempo), digite-o e, 
entdo, inicie a musica. Em primeiro lugar, digite a nota, de 




Figura 1 



acordo com a figura 1, e ‘CR’. Ap6s, digite a dura93o, segun- 
do a figura 2, e tambdm as observa95es que podem ser 0 ou 1 
(0 representa nota normal e 1 , nota ligada a anterior, como no 
sunbolo abaixo). 



10 HI MEM: 28000 


X(I)S" ": VTAB 4: HTAB 7Z INPUT 


1540 NEXT I: NEXT J 


20 ONERR GOTO 50 


“"SE*: IF E* < > THEN N* 


1550 POKE 27999 + A, 3 


30 POKE 34,0: POKE 33,40: TEXT : 


(I) *= E* 


1560 RETURN 


HOME : GOTO 2000 


760 VTAB 3: HTAB 10: INPUT "";E* 


1600 ES - l: POKE - 16368,0 


50 POKE 34,0: HOME : PRINT CHR* 


: IF E* < > "" THEN DR ( I ) - 


1610 FOR J « 1 TO I 


(7): PRINT "ERRO " | PEEK (22 


VAL (ES) 


1620 IF ES ■ J THEN INVERSE 


2)1" NA LINHA PEEK (219) * 


770 VTAB 6: HTAB 7: INPUT ""SE*: 


1630 VTAB 7 ♦ J: PRINT A*(J): NORMAL 


256 + PEEK (218): FOR I - 1 


IF E* < > -" THEN 0B7.(I) - 




TO 500: PSE - I: NEXT I: HOME 


VAL (E*) 


1640 NEXT J 


: GOTO 2100 


780 PRINT : INPUT "MAIS ALGUMA ? 


1650 E* = "" 


100 HOME : VTAB 10: HTAB 10: PRINT 


"SE* 


1660 IF PEEK ( - 16384) < 128 THEN 


"UM MOMENTO POR FAVOR" 


790 IF E* < > "S“ AND E* < > " 


1660 


110 MM ( 1 ) = (N*<1) - "INC") : X - 2 


SIM" THEN RETURN 


1670 IF PEEK ( - 16384) > 127 THEN 


:Y - i 


800 HOME : VTAB 20: PRINT "ULTIM 


E* «= CHR* ( PEEK ( - 16384) 


120 VL - V * ( - 2.75) ♦ 719 


A nota: “SIS" ": VTAB l: GOTO 


- 128): POKE - 16368,0 


130 FOR I - 1 TO N 


740 


1680 IF E* - CHR* (27) THEN HOME 


135 VTAB l: PRINT I J “ " 


900 HOME : INPUT "DIRETORIO (S/N 


: END 


140 D7.(I> - DR ( I ) * VL / 16: IF N 


)? "SE*: IF E* - "S" THEN PRINT 


1690 IF E* -• CHR* (8) THEN ES - 


♦(I) - "INC" THEN MM ( X ) - I: 


D*S “CATALOG" 


ES - l: GOTO 1730 


x - x ♦ i:D7.d) - i:cnx(I> - 


910 PRINT : INPUT "NOME DA MUSIC 


1700 IF E* = CHR* (21) THEN ES - 


1: GOTO 190 


A ?" S NM* 


ES ♦ l: GOTO 1730 


150 IF N*(I) - "REP" THEN NN(Y> - 


920 PRINT D*S “OPEN" 5 NM* : PRINT D 


1710 IF E* - CHR* (13) OR ES - 


i:y - v ♦ i:d%( 1> - l : cnx < I ) 


*5 "READ" S NM* 


VAL (E*> THEN RETURN 


- l: GOTO 190 


930 INPUT N , V , C , VL 


1720 IF E* > "0" AND E* < STR* 


160 FOR J - 1 TO 57 


940 FOR I - 1 TO C: INPUT NN ( I ) , 


(I ♦ 1) THEN ES “ VAL (E») : 


170 IF NKI) ■ Nll(J) THEN CN7. ( I 


MM(I>: NEXT I 


GOTO 1610 


) - N27.(J): GOTO 190 


950 FOR I - 1 TO N 


1725 PRINT CHR* (7) 


180 NEXT J 


960 INPUT N* ( I ) , DR ( I ) 


1730 IF ES > I THEN ES - 1 


185 VTAB 21 : PRINT "ERRO NA NOTA 


970 INPUT CN7.(I) , D7. ( I ) , OB7. ( I ) 


1740 IF ES < 1 THEN ES - I 


"1 I: VTAB l: GOTO 21 10 


980 NEXT I 


1750 GOTO 1610 


190 NEXT I 


990 PRINT D*5 "CLOSE" S NM*: GOSUB 


2000 D* - CHR* (4): POKE 28000,3 


200 C * Y:NN(Y) - N * (N*(N) < > 


1500: RETURN 




"REP"): GOSUB 1510: PRINT CHR* 


1100 REM LISTAR DADOS 


2010 DIM N* ( 1000) , CNX ( 1000) , DR ( 1 


(7) 


1110 INPUT "P/ IMPRESSORA** “|E*: 


000) ,0B7.( 1000) ,D7.( 1000) ,N1*( 


210 RETURN 


IF E* - "S" OR E* - "SIM" THEN 


57) ', N27. (57) , MM (20) ,NN(20) 


300 POKE 769,96: POKE 770,109: POKE 


PR* 1 


2020 IF PEEK (768) < >173 THEN 


786,36: POKE 787,119: POKE 7 


1120 HOME : HTAB (40 - LEN (NM* 


PRINT D*J "BLOAD RM" 


91,232: POKE 792,128: CALL 7 


)) / 2: INVERSE : PRINT NM*: 


2030 RESTORE 


68: RETURN 


PRINT "UM TEMPO - "IV: NORMAL 


2040 DATA 248,234,221,209,197 


400 R£M KNTROR UMA MUSICA 


: FOR I - 1 TO 40: PRINT 


, 191,185, 175, 165, 156, 147, 139 


410 HOME : PRINT "DIGITE ’FIM’ P 


i: NEXT : PRINT : POKE 34,3 


, 131, 128, 123, 1 16, 1 10, 103,97, 


ARA TERM I NAR" : PRINT 


1130 FOR I - 1 TO N 


94 , 92, 87, 82, 77, 72, 68, 64 , 63, 6 


420 I - 0: PRINT : INPUT "NOME DA 


1140 PRINT II" NOTA: " ; N* ( I > | : IF 


1,37,34,51,48,47,45,42,40,37 


MUSICA? “ | NM* : PRINT : INPUT 


N* ( I ) * "REP" OR N* ( I > - "IN 


, 35, 33, 32, 31 , 30, 29,28,26, 25, 


"QUAL 0 VALOR DE UM TEMPO? " 


C“ THEN PRINT : GOTO 1170 


24,23,21,20,19,18,17,16,15,1 


|V: PRINT 


1150 PRINT TAB ( 18) 1 "DURACAO: " 




430 I - I ♦ l: PRINT II” "1 


1 DR ( I ) S 


2030 DATA D03, D0S3, RE3, RES3, MI 3, 


440 PRINT "NOTA ?" J N* ( I ) I : A - LEN 


1160 PRINT TAB ( 33) | "OBS. : " * OB7. 


MI S3, F A3, FAS3, SOL 3, SOLS 3, L A3 


( STR* (I)): HTAB 9 ♦ A: INPUT 


(I) 


, LAS3, SI 3, SI S3, D02, D0S2, RE2, 


'•"|A«: IF A* < > THEN N* 


1170 IF I / 20 - INT (1 / 20) AND 


RES2, MI 2, MIS2, FA2, FAS2, S0L2, 


(I) - A* 


E* < > "8" THEN GET A*: HOME 


S0LS2 , L A2 , L AS2 , S 1 2 , S I S2 , DO 1 , 


450 IF N* ( I ) - "FIM" THEN N • I - 


: IF A* - CHR* (27) THEN POKE 


D0S1 , RE 1 , RES1 ,MI1,MIS1,FA1,F 


l: RETURN 


34,0: RETURN 


AS 1 , SOL 1 . SOL SI , LAI , LAS 1 , SI 1 . 


460 IF N* ( I ) - "REP" OR NKI) - 


1180 NEXT I 


SI SI , DOO, DOSO, REO, RESO, MIO.M 


"INC" THEN GOTO 430 


1190 GET A*: POKE 34,0: HOME : RETURN 


I SO. F AO, FASO 


470 HTAB 3 ♦ A: PRINT "DURACAO ? 




2060 DATA SOLO, SOLSO, LAO, LAS 


" 1 DR ( I > I : HTAB 12 ♦ A: INPUT 


1200 REM INSERIR NOTAS 


0, SIO, SI SO, PAUSA 


M "|A*: IF A* < > ■■ THEN DR 


1210 HOME : INPUT "INSERIR OU AC 


2070 FOR I - 1 TO 57: READ N27. ( I 


(I) - VAL (A*) 


RESCENTAR NOTAS (I /A)? "|E* 


>: NEXT I 


480 HTAB 3 ♦ A: PRINT "OBS.: "10 


1220 IF E* - "A" THEN I - N: GOSUB 


2080 FOR I - 1 TO 57: READ N1*(I 


B7. ( I > I : HTAB 9 ♦ A: INPUT — 


430: RETURN 


): NEXT I 


|A*: IF A* < > "" THEN OB7. ( 


1230 HOME : INPUT “OUANTAS NOTAS 


2100 HOME : REM MENU PRINCIPAL 


I) - VAL (A*) 


HA’ A INSERIR ?-|NI 


2110 PRINT NM*: PRINT : PRINT "’ 


490 PRINT : GOTO 430 


1240 PRINT : INPUT "A’ PARTIR DE 


ESC’ PARA 1ERMINAR": A* ( 1 ) - 


500 REM GRAVAR A MUSICA 


OUE NOTA (NO) ? "|PN 


" < 1 >-ENTRAR DO DISCO 


510 HOME : PRINT "MESMO NOME ("1 


1250 IF PN > N THEN RETURN 


" : a* (2) - " < 


NM* I ” ) 7 -i: INPUT "“IE*: IF 


1260 FOR J - N TO PN STEP - 1 


2 > -ENTRAR DO TECLADO 


E* - "8" THEN 540 


1270 N*(J ♦ NI) - N*(J):DR(J ♦ NI 


":A*(3) - " <3>-PR 


520 PRINT : INPUT "DIRETORIO (8/ 


) - DR ( J ) : 0B7. ( J ♦ NI) - 0B7. < 


OCESSAR OS DADOS 


N)? H »E*: IF E* - "S" THEN PRINT 


J> 


" 


D* I "CATALOG” 


1280 NEXT J 


2120 A* (4) - " < 4 >-MENU DE MODI 


530 PRINT : INPUT "NOVO NOME'’ "1 


1290 FOR T - PN ♦ 1 TO NI ♦ PN 


FICACOES/LISTAGEM ":A*(5> 


NM* 


1300 PRINT : INPUT "NOTA? "SN*(T 


- " <3> -REPRODUZ I R A MUSI 


540 PRINT D* I "OPEN" 1 NM* : PRINT D 


>: IF N* ( T ) - "INC" OR N* (T) 


CA " : A* ( 6 ) - " 


*1 "DELETE" 1 NM*: PRINT D*1 "OP 


- -REP- THEN 1320 


< 6 >• GRAVAR NO DISCO 


EN“ | NM*: PRINT D*5 "WRI TE" 1 NM 


1310 INPUT "DURACAO*’ ”»DR(T): INPUT 


": I - 6: GOSUB 16 


* 


"OBS.: “ S OB7. ( T ) 


00 


550 PRINT N: PRINT V: PRINT C: PRINT 


1320 NEXT T 


2130 ON ES GOSUB 900,400,100,220 


VL 


1330 N - N ♦ NI 


0, 300,300 


560 FOR I - 1 TO C: PRINT NN(I): 


1340 RETURN 


2140 GOTO 2100 


PRINT MM<I>: NEXT I 


1400 REM APAGAR NOTAS 


2200 REM MENU MODIFICACOES 


570 FOR I - 1 TO N 


1410 HOME : INPUT "APAGAR NOTAS 


2210 HOME 


580 PRINT N* ( I ) : PRINT DR ( I ) 


A PARTIR DA: “|NC: INPUT "AT 


2220 PRINT NM*: PRINT : PRINT 


590 PRINT CN7.(I): PRINT 07.(1): PRINT 


E a: "SNF 


ESC’ PARA TERM I NAR" 


OB 7. ( I ) 


1420 DI - NF - NC ♦ 1 


2230 I - 5:A*(1> - " < 1 < -RE TORN 


600 NEXT I 


1430 FOR J - NC TO N 


AR AO MENU PRINCIPAL 


610 PRINT D»; "CLOSE "{NM* 


1440 N* ( J ) - N*(J ♦ DI):DR(J> - D 


: A* (2) - " <2>-LISTAR NOTA 


620 RETURN 


R(J ♦ DI ) : OB'/. ( J ) - 0B7. ( J * D 


S: VIDEO/ IMPRESSORA ":A*(3 


700 REM CORRIGIR 


I) 


) » " <3> -CORRIGIR DADOS 


710 HOME : INPUT "OUER LISTAR ? 


1450 NEXT J 


": A* (4) - " 


"SE*: IF E* - "S" THEN E* - 


1460 N - N - DI: RETURN 


< 4 >- INSERIR/ACRESCENTAR N 


GOSUB 1120 


1500 HOME : VTAB 10: HTAB 8: PRINT 


OTAS 


720 HOME 


"AGUARDE UM MOMENTO" 


2240 A* (5) - " <5 ^-APAGAR NOTAS 


730 PRINT : PRINT "UM TEMPO - ” S 


1510 A - l: FOR J - 1 TO C 


": GOSUB 


V?: HTAB 12: INPUT ""JE*: HOME 


1520 FOR I - MM(J) ♦ 1 TO NN(J) - 


1600 


: IF E* < > ••" THEN V - VAL 


1 


2250 ON ES GOSUB 2270,1100,710.1 


(E») 


1525 IF N* ( I ) - "INC" OR N* ( I > - 


200, 1400 


740 INPUT "DUAL 0 NUMERO DA NOTA 


“REP" THEN 1540 


2260 GOTO 2200 


?"J I 


1530 POKE 27999 ♦ A,0B7.(I): POKE 


2270 POP : GOTO 2100 


750 VTAB 4: PRINT "NOTA: "SN*(I> 


30499 *• A,CN7.(I): POKE 32999 




1" ": PRINT "DURACAO: " S DR 


♦ A,D7.(I):A - A ♦ 1 




<I)* M ”: PRINT "OBS.: "SOB 


1535 VTAB l: PRINT I | " " 





Listagem 1 




Ao final da musica, digite FIM no lugar da nota e o progra- 
ma retornard ao menu principal. 



Processar dados - O programa iniciara uma rotina que trans- 
forma suas notas nas dele. Apos, ele volta ao menu principal. 
Obs.: Depois de cada modifica93o ou digita9ao, deve-se obriga- 
toriamente processar os dados, o que n3o e necessario apos car- 
regar-se uma musica. „ 

Menu de modifica9oes/Listagem — Sera apresentado um novo ® 
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MICRO SISTEMAS, junho/86 



MICRO SISTEMAS, junho/86 
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MUSICA NO APPLE 



0300- 


AD 


60 


6D 


LDA 


S6D60 


032E- 


4C 


IF 


03 


JMP 


$031 F 


0303- 


C9 


03 




CMP 


/$03 


0331- 


A9 


OF 




LDA 


^SOF 


0305- 


DO 


01 




BNE 


$0308 


0333- 


85 


07 




STA 


$07 


0307- 


60 






RTS 




0335- 


C6 


08 




DEC 


$08 


0308- 


C9 


01 




CMP 


/SOI 


0337- 


DO 


EC 




BNE 


$0325 


030A- 


FO 


05 




BEQ 


$0311 


0339- 


A2 


01 




LDX 


t$Q\ 


030C- 


A9 


50 




LDA 


/SSO 


033B- 


20 


4B 


03 


JSR 


$034B 


030E- 


20 


A8 


FC 


JSR 


$FCA8 


033E- 


A? 


12 




LDX 


/S12 


0311- 


AD 


24 


77 


LDA 


$77 24 


0340- 


20 


4B 


03 


JSR 


$034B 


0314- 


85 


06 




STA 


$06 


0343- 


A2 


17 




LDX 


/S17 


0316- 


AD 


E8 


80 


LDA 


S80E8 


0345- 


20 


4B 


03 


JSR 


$034B 


0319- 


85 


08 




STA 


$00 


0348- 


4C 


00 


03 


JMP 


$0300 


031 B- 


A 9 


OF 




LDA 


/$0F 


034B- 


BD 


00 


03 


LDA 


$0300, X 


031D- 


85 


07 




STA 


$07 


034E- 


C9 


FF 




CMP 


/SFF 


031 F- 


AD 


30 


CO 


LDA 


SC030 


0350- 


DO 


09 




BNE 


$035B 


03 22- 


88 






DEY 




0352- 


FE 


01 


03 


INC 


$0301 , X 


0323- 


DO 


04 




BNE 


$0329 


0355- 


A9 


00 




LDA 


*$00 


0325- 


C6 


07 




DEC 


S07 


0357- 


9D 


00 


03 


STA 


$0300, X 


0327- 


FO 


08 




BEQ 


$0331 


035A- 


60 






RTS 




0329- 


CA 






DEX 




035B- 


FE 


00 


03 


INC 


$0300, X 


032A- 


DO 


F6 




BNE 


$032? 


035E- 


60 






RTS 




03 2C- 

r 


A6 

*1 


06 




LDX 


$06 















Listagem 2 



menu que tera as seguintes opgOes: 

1. Retornar ao menu principal — retorna ao menu principal 

2. Listar notas — lista as notas na tela ou impressora 

3. Corrigir dados - pergunta se voce quer a listagem ou n3o e, 
depois, o numero da nota a corrigir. Voce pode corrigir diver- 
sas notas sem sair da rotina. 




4. Inserir/Acrescentar notas - voce podera inserir notas no 
meio da musica (sera perguntado quantas notas voce vai inse- 
rir e a partir de qual. Sua primeira nota ficara logo ap6s esta) 
ou acrescentar ao final da mesma. 

5. Apagar notas - apaga as notas a partir da nota X da primei- 
ra pergunta ate a nota Y da segunda pergunta, inclusive. 
Reproduzir a musica — 0 programa executara a musica na sua 
memoria. 

Gravar em disco - lhe sera perguntado se voce quer gravar com 
o mesmo nome ou nao. No caso de nao, sera perguntado se 
voce quer o diretorio (para evitar de gravar por cima de outra 
musica ja existente) e, a seguir, o novo nome. 

Obs.: Nas perguntas onde as respostas podem ser sim (S) ou 
nao (N), se voce teclar simplesmente ‘CR’, o programa enten- 
dcra como n3o (N). 

Se, durante o menu, voce digitar ‘ESC’, ocorrera uma inter- 
rup?2o no programa e, para voltar a ele sem perder os dados, 
digite GOTO 2100;. Pode-se tambdm digitar RUN, porcm, pcr- 
dem-se os dados. 

Caso sc desejc utilizar as musicas gravadas com este progra- 
ma em outros, nSo ha problcma, mas deve ser salicntado que 
as sub-rotinas de reprodu95o (linha 300 e listagem 2), entrada 
do disco (linhas 900 a 990) c de arquivo na memoria (linhas 
1500 a 1560) dcver3o ser mantidas; as demais poderao ser 
apagadas ou substituidas. Porcm, deverao ser dimensionadas 
as variaveis CN%, D%, OB%, NN e MM (DIM CN%(1000) 
D%(1000), OB%(1000),NN(20),MM(20)), e ainda a linha 960 
devera ser modificada para 960 INPUT NS ,DR. 



Cursando atualmente o ultimo ano do segundo grau, na Escola Estadual 
Piratini, em Porto Alegre, Robert Pagnot estuda, ainda, programapao 
Assembler-Z80A —, na PUCRS, sendo tambdm programador autodidata 
em Applesoft e Assembler p 6502. Trabatha na Bourscheid Engenharia, 
onde desenvolve programas na irea de engenharia e topografia. 




APLICATIV/05 PALAMDO PORTUQUE5 



EDUCATIV/05 EALAMDO PORTIK3UE5 



JOG05 EMOCIOMAMTE5 




PR0QRAMA5 QUE VOCE EMTEIiDE! 



' APLICATIV05 

101 - COtITROLE DE E5TOQUE M5X 

102 - AGENDA DE 

ERDEREC05/MALA 
DIRETA M5X 

103 - PLAMILFIA ELETROMICA M5X 

utilitArio 

201 - EDITOR ASSEMBLER/ 
DI55A55EMBLER M5X 

COLE9AO PRIMCIPIAMTES 

301 - PRIRCIPIAIiTE - E 

302 - PRIMCIPIAMTE - U 

303 - PRIHCIPIAMTE - D 



' JOOOS EMOCIOMAMTE5 

501 - KALEIDOSCbPIO DIGITAL 

502 - MS XADRE2 

503 - MAQUIRA QUEItTE 

504 - MISSAO: RESGATE DO 5AT(:LITE 

505 - LABIRIMTO DOS DIAMAMTE5 

506 - BAMCO FAMTA5MA 

507 - VI5ITAMTE DO EUTURO 

508 - 0 AVEMTUREIRO DO CAMPO MAGI1ETICO 




nni 

nni 



um sonhor programa 



A VEflDA M05 REVENDED0RE5 M5X 



RUA DO CATETE, 351 - GRUP05 1201 A 1204 - CEP: 22220 



DE TODO O BRA5IL. 



Rio de Janeiro - RJ - Tel.: (021) 221-1674 - C.P. 832/20001 




BRASILTRADE 



PREQOS ESPECIAIS 
PARA REVENDEDORES 

LIGUE: /A 

@2591299 ^ 



DIVER 



INTERFACES 



CP/M Logodata 

990 Ini Disco Logodata 

1.290 MONITOR 

1.090 MV12CCE 

2.000 Vidaocompo Verde 

1.190 Drive p/ Apple 

1.090 SUPRIMENTOS 

1.990 Arquivo p/1 0 Disqueles 

900 Formuterio de 80 Colunas 

1.990 Picotex 

1.090 Cabo CP/500/lmpressora ...... 



Printer Card CCE .. 
Ram Card 16 CCE 
RS 2320 CCE 



SERVIQO EXPRESSO PARA TODO O BRASIL 



GRAFIX FT 80 



15.390 



80 colunas. 160 CPS. Ido p papel solto. 
tractor ptocmuldrio continuo. compativei com 
lodos os 



COMPATlVEL 
COM IBM/XT 

42.500 

16 Bits. 640 K bytes de 
memdria RAM, placa de multi-lum^o 
c RS 232 e paralela 
centronics, placas controladoras 
de drives, placa controladora 
de video gtSlica, 
lonle interna de 150W. 



PROMOCAO BRASIL 
TRADE CENTER CCE 

CPU Exalo Pro + Monitor + 
Drive + 4 Interfaces 
A escolher CzS 20.999 
em 4 vezes s/iuros 
ou Avista CzS 18.899 
( 10 % de desconlo) 



GRAFIX HS 100 
(160 CPS) 



BTC/XT 100% 
COMPATlVEL 
C/IBM 640K 

Consults: 16 Bits 256 K 
Byles de RAM, 2 drives 
Slim, placa controladora 
de drives, placa controladora 
de video gteGca. 
lonte interna de alimentacao 
de 150W 



19.970 

Grafix HS 100 132 colunas - 160 CPS 
Totalmentegralica _______ 



TK 90 X/48K 



Compativei 



48 K de memdria 
RAMcolorido 
Gratis 5 jogos a 
sua escolha. 



CURSO DE INGLES 

BTC OUNICO 1.499 
NO BRASIL 



IPANEMA - AV. EPtTACIO PESSOA, 280 - « 259-1299 
IPANEMA - a Vise. DE PI RAJ A, 580 U. 226 
LARARJE1RAS - a DAS LARANJEIRAS, 21 U. 2 - * 285-6 
CENTRO - a ASSEMBLBA. 10 S/S 112 - K 222-1124 
NTTEROl - a LOPES TROVAO, 134 SA. - « 710-3659 
CAXIAS - a Da MANOEL TELES, 113 UE - S 771-6012 
TUUCA - R. CONDE DE BONRM, 229 L/ A - B 284-2031 



BRASILTRADE CENTER 



Video Card 80 Col CCE 


2.000 


CP/M Card CCE 

Disc Card CCE 


1.190 

1.090 


128K CCE 

Paralela Logodata 

128 Logodata 

RS 232 Logodata 


1.990 

900 

1.990 

1.090 
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ENCONTRO MINEIRO DE INFORM ATICA 
v FEIRA MINEIRA DE INFORM ATICA > 

(Evento of icializado pelo Ministerio da Industria e Com6rcio atrav^s do CDC) a^T 



EFl) 1 



iiSSi 



II!!? 






I 



Hi 



U 7 B 



0 grande mercado mineiro. a qualidadede seus 



f com milhares de produtos e servigos. 

I^Pr compradores em potencial Nao fiquede fora. Tudo 

estar^nostrespisosdo mostrado ao vivo as 
MINASCENTRO querendo pessoas certas. 
conhecer o que voce tem Reserve o seu stand e venha 

para mostrar e aderir pronto para vender 

DE 23 A 27 DE JULHO DE 1986 - MINASCENTRO • BELO HORIZONTE 



Patrocinio: 



RealizagSo 



50 ,5 ’ 3 ^ 06 '*' 



1®* 



msx msx msx ms 



Expertron 

Fabio Shiguemitsu Hara 



Como o pr6prio nome ja diz, esta e 
uma vcrs3o do TRON, feita para rodar 
em micros da linha MSX. Neste progra- 
ma, dois jogadores perseguem um ao 
outro, tentando evitar o choque com 
barreiras e, ao mesmo tempo, cons- 
truindo novas barreiras para encurralar o 
adversdrio. 

Podem participar de cada partida 
um ou dois jogadores. No caso de haver 
apenas um, o adversdrio sera o prdprio 
micro. Neste tipo de partida, pode-se 
utilizar um joystick. Caso nSo o possua, 
o jogador deverd usar as setas do tecla- 
do. Para isso digite: 

400 IF BTICK<0>«0 THEN Z»l. IF >: GOTO 450 
410 Z«8T ICK (0) S IF <Z/ii>«lNTlZ/2> THEN Z- 
Z*l:lF Z"? THEN 2"1 

Quando se desejar jogar com outra 
pessoa, pode-se utilizar dois joysticks 
ou um joystick e as setas do teclado. 
Para jogar com dois joysticks, digite: 

400 IF STICK <2--F>"0 THEN Z~I.<F> iBOTO 430 

410 Z-BT1CK(2-F>: IF IZ/2I-INT1Z/21 THEN 

Z“Z+1 : IF Z-9 THEN Z-t 

Lembre-se que, para quern ndo pos- 
sui pelo menos um joystick s6 6 pbssi- 
vel jogar da primeira maneira apresenta- 
da, ou seja, com apenas um jogador. 

DIGUAgAO 

A digita<;ao do programa d longa e 
cansativa. Para facilitar, prcste aten 9 ao 
ds seguintes dicas: 

Utilize ao inves de “PRINT”; 

Quando houver duas ou mais linhas 
iguais ou parecidas, apenas troque o 
numero da linha e fa 9 a as modifica 9 Ses 
necessdrias. Ex.: As linhas 60 e 640 sao 
identicas. Para nao refazer a linha 640, 
siga as instru95es: 

- Digite LIST 60. 

- Suba atd o come 90 da linha 60 com 
o auxflio das setas. 

- Troque o valor da linha e tecle 
RETURN. 

MACETES 

Neste jogo, voce se move em quatro 
dire95es: 4 . 4 Se jogar con- 

tra o computador, voce vera que ele per- 
sisting em segui-lo. Desse modo pode-se 



fecha-lo, fazendo-o encostar-se na pare- 
de. 

Se a partida for jogada por duas 
pessoas, ndo havera previsdo de vence- 
dor, jd que existem mais de mil op95es 
de jogadas. Aconsclho o jogador a nSo 
ficar com o botSo apertado; s6 um to- 
que c sua moto ira para a dire95o deseja- 
da. Outra dica importante: nunca an- 
de para trds. 

OBSERVANCES 

Os caracteres entre aspas contidos 
no fim da linha 70 podem ser consegui- 



10 * *«* EXPERTRON hi 

20 ’ Copyright hy 

3® * Fabio Shiguemitsu H*ro 
40 ’ 

50 ON STOP GOSUB 060 
60 STOP ON 

70 SCREEN 0, , 1 :CLS:KEY OPF: COLOR 1,15,15 

: WIDTH (40) 

80 SOUND 8,16: SOUND 7,55:SOUND 6,5: SOI IND 
13, 10:BOIJND 12, 180: SOUND 11,0 
90 LOCATE 13,0:PR1NT "EXPERT RUN" : LOCATE 
13,1: PR 1 N TSTR 1 MB* <?, 195) 

100 PRINT: INPUT "Ouantoi joqaiioro* "IN 
110 IF N< 1 OR N72 THEN 70 
120 FOR C-l TO N: CLS: PR IN I "Nome de. "jC» 
" jogador — > "IILINE INPUT N«<C> 

130 PRINT : PRINT N*(C>|" digit*) carat 
or ><■«> "| : L I NE INPUT CftI A(C)«A8G(C*> 

140 IF N r 1 AND A(C)"215 THEN 130 
150 NEXT 

160 CLS*. LOCATE I5,10:PRINT "EXPERTHUN" : K 
OR T-l TO 2000: NEXT: CLS 
170 SCREEN , , 0 

180 FOR V»0 TO 39: VPOKF V+80, 21 9: VPOKE V 
•920, 219: NEXT 

190 FOR V-3 TO 22: VPOKE 40 *V, 21 9: VPOKE 4 
0*V+39, 2 19: NEXT 

200 LOCATE 0,1:PR1NT N*(l)J" : "|J(1> 

210 IF N= 1 THEN LOCATE 15,0: PRINT "MSX : 

220 IF N-2 THEN LOCATE 34-LEIJ (N*<2> ) , 1 : P 
RINI NM2>!" : " 1 J ( 2 > 

230 IF J(1) = 1C» OR J (2) -1 0 CiR M-10 THEN 7 
70 

240 X ( 1 ) - 1 NT ( RND (-TIME) *798 >+161 

230 IF VPEEK ( X ( 1 ) ) < >32 THEN 240 

260 L < 1 ) 3 1 N T ( RND < -7 I ME ) #7 ) + 1 : I K <L(l)/2) 

-INT(L<n/2> THEN 260 

270 X (0>=INT (RND (-TIME) *798) +161 

200 IF VPEEK ( X (0> >032 THEN 2/0 

290 L (0) -INT (RND (-T IME) *7 J +1 : IF (L<0>/2> 

=INT(L(0»/2) THEN 290 

300 SOUND 2, INT (RND( -TIME) *256) : SOUND 3, 

INT (RND ( -TIME) » 16) : SOUND 7,Z53:S0UND 9,1 

5: SOUND 2,0:SOUNI) o,0:F=l :GOSUB 400 

310 IF X ( I ) < 4 1 THEM 660 

320 IF VPEEK (X (I) >032 THEN 660 

330 VPOKE X ( 1 ) , A ( I ) 

340 IF N=1 THEN 480 

350 F -0: GOSUB 400 

360 IF X < 0 > *' 4 1 THEN 660 

370 IF VPEEK ( X ( 0 ) ) < >32 THEN 660 

380 VPOKE X (0) . A (2) 

390 GOTO 300 

400 IF STICK (P)=0 THEN Z-L <F»: GOTO 430 
410 Z “STICK (F) : IF ( Z/2) -INT ( Z/2) THEN Z= 
Z+l: IF Z=9 THEN 7=1 

Expertron 



dos pressionando-se SHIFT + L GRA + 

0. 

Este programa possui linhas dcsneces- 
sdrias, podcndo-sc retirar as linhas 290 
e 340. Depois, de um RENUM e as li- 
nhas ficarao em ordem de novo. 

A parte do programa em que o com- 
putador “pensa” para onde vai se loco- 
mover, estd entre as linhas 460 e 630. 
Este “pensador” foi copiado de uma 
versao para a linha Sinclair. 



Fibio Shiguemitsu Hara possui um TK85 e 
um Expert, onde programa nas linguagens 
BASIC e Assembler. 



420 L (F > "Z 

430 IF Z-l THEN X(F)»X(F)-40 
440 IF Z-3 THEN X(F)-X(F) + 1 
450 IF Z-5 THEN X(F>-X(F)+40 
460 IF Z-7 THEN X(F>-X(F)-1 
470 RETURN 

480 Z-H:L0"INT (X <0> /40> :C0"INr (X <0)-(LW» 
41:0 ) 

490 LI -INT (X (1) /40> :C1-INT(X(1)-(L1*40) > 
500 IF AB8(L1-L0) >ADB(C1--C0) THEN 340 
510 IK VPEEK (X (0>+l )-32 AND Cl 7C0 THEN Z 

-3 

320 IF VPEEK (X (0) -l ) "32 AND C1<C0 THEN Z 
-7 

530 GOTO 560 

540 IP VPFI- K (X ( 0 ) +40 ) =32 AND L1>L0 THEN 
Z-3 

330 IF VPEEK ( X (0) -40) -32 AMD L1<L0 fHfcN 
Z-l 

560 IF ZO0 THEN 620 
5/0 Z-l 

3130 II- VPEEK ( X ( 0 ) - 1 ) -32 THEN Z-7 
390 IK VPEEK (X <0) +40) =32 THEN Z-3 
600 I r VPI?I:K (X <0> -40) *32 I HEN Z«1 
610 IF VPEEK (X(0)+1) -32 THEN Z-3 
620 F>0: GOSUB 430 
630 IF VPI EK(X(0>><>32 THEN 660 
640 VPOKE X (0) , 215 
650 GOTO 300 

660 SOUND 8,16: SOUND 7,55: SOUND 6,5: SOUN 
D 13, 10: SOUND 12, 100: SOUND 11,0 
670 FOR T»! TO 10D0: NEXT 

600 IF F=1 AND N-2 THEN CLBI.T (2) "0 (2>+l : 
PR IN I 1 11.(2) I 

o90 IK 1=0 AND N=2 THEN CLS: J ( 1 ) -J < 1 ) +1 : 

PRINT N* <1)5 

700 IK N-l THEN 740 

710 PRINT " Moruout inrtia um ponto!" 

720 I- OR T=1 TO 2000: NEXT: CLS 
730 130 TO I 00 

740 IF F^l THEN CL8: N-Mi 1 : PRINT "Eu fatu 
rei oBta. Ha 1 (la I" 

750 IF F-0 THEN CLS! J (1 )-J ( l ) +1 : PRINT " 
Voce marcou mat* um pontof" 

760 GOTO 720 

770 FOR T=1 TO 2000: NEXT: CLS 
780 LOCATE 10, 10:PRINT "Vencivdor : "T:F0R 
T— I TO 5: BEEP: NEXT 

79tJ IF M»10 THIN PRINT "Expert - MSX" 

800 IF J(l)«10 THEN PRINT Nt ( 1 ) 

D1U IK J (2> = 10 THEN PRINT N*(2) 

82»l LOCATE 0,20:PR1NT "Outra vl-z ? (S/N) 

: :": LOCATE 19, 20: INPUT *( 1 > : PRINT II* 
830 IF M*="S" OR THEN RUN 

840 IF H*«"N" OR H*="n" THEN SCREEN , ,1: 
WIDTH (39) : KEY ON:CLS:NEW 
050 BEEP: GOTO 820 
860 CLS: SCREEN 0,,l:END 
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Voce pode incrementar o modo grafico do seu Color acrescentando a 
ele novoscomandos. Nesteartigo,aprendaaimplementaro DRAW. 



Comando DRAW 
em semigraficos 

Celso Bressan 



N o artigo intitulado “Graficos especiais”, de Claudio 
Costa (MS n 9 51 ), foi analisado o modo semigrafico, 
o qual e pobremente documentado e ainda pouco re- 
ferenciado em publica^es especializadas (com exce- 
93o, e claro, da ja mencionada materia). Esse modo e portanto 
um recurso a mais que o programador dispfle para enriquecer 
os seus programas. 

0 BASIC e o Extended Color BASIC (EcB) tambem s 2 o 
omissos neste ponto, haja vista que n2o implementam coman- 
dos diretos semelhantes aqueles dos graficos de alta-resolu 93 o, 
a nSo ser os limitados SET e RESET, deixando todo o resto 
da tarefa por conta dos consoladores PEEK e POKE. 

Quern se aprofunda no estudo deste computador sabe do 
poder que os comandos existentes oferecem e sabe tambem 
(ou, pelo menos, deveria saber) do esfor90 que os te'cnicos da 
Microsoft tiveram para encaixar tudo em 16 Kb de ROM, sen- 
do 8 para o BASIC e 8 para o EcB. Em resumo, foi colocado o 
maximo dentro do minimo! fi justificavel, portanto, admitir- 
se a ausencia de diversos comandos e instru9<3es, inclusive al- 
guns para os semigraficos, por absoluta falta de espa9o na 
ROM. 

Hoje, este tipo de (juestionamento poderia ate n 2 o ser 
significativo, pois as memorias est2o cada vez mais baratas (es- 
te foi um dos maiores motivos, o custo.). Porem, naepoca do 
lan9amento do primeiro Color Computer, 1980 , tal fator era 
de muita relevancia, a ponto das primeiras maquinas virem 
equipadas somente com o BASIC e 2 Kb de memoria RAM. 
Nem por isto os usuarios se sentiram diminuidos, pois tudo 
que fazemos hoje era possivel fazer-se entao, so que com mui- 
to malabarismo! 

Outro fator que parece ter pesado bastante foi a reduzi- 
da qualidade dos graficos produzidos pelos semigraficos. Pri- 
meiro, porque a resolu92o e baixa e, portanto, limita a apresen- 
ta93o, segundo, porque nem todos os pontos podem ser pro- 
gramados a vontade, pois uns dependem dos seus adjacentes, 
dentro do mesmo byte, o que restringe um pouco a escolha de 
cores. Evidentemente, na hora de escolher-se o que era melhor 
para o Color, e como nem tudo poderia ser colocado, os recur- 
sos oferecidos pelos semigraficos foram os preteridos. 



Mas, estoria 2 parte, vamos ver que a situa92o n 2 o e t 2 o 
desesperadora assim. Os semigraficos tern o seu valor, princi- 
palmente no que tange a sua aplica92o em textos de todos os ti- 
pos (recurso este muito usado em programas maisprofissionais, 
sem muito alarde), alem de alguns tipos especiais de jogos e 
programas educativos. 

Esta a nosso cargo, no entanto, usar um pouco de cria- 
tividade e imagina92o de forma a preencher uma parte desta la- 
cuna. Come9aremos ent 2 o pela implementa92o do comando 
SDRAW, que Simula o DRAW da alta-resolu93o, e deixaremos 
para o leitor a tarefa de criar outros mais (aten92o leitores Co- 
lormaniacos, est2o todos desafiados!). 

0 COMANDO DRAW 

Dentre as possibilidades de implementa92o do comando, 
destaca-se aquela que provoca chamadas a uma sub-rotina em 
BASIC, passando as instrugSes necessirias dentro de uma varia- 
vel fixa, convencionada do tipo string (mais simples e facil; a 
nossa preferida) e uma outra que intercepta um dos vdrios gan- 
chos ou hooks que existem no sistema operacional do BASIC,, 
ganchos estes especialmente construidos para permitir ainter- 
rup92o de erros, entradas e saidas, alem de controlarem a exe- 
CU920 de varios comandos do BASIC. 

Esta tecnica, por ser sofisticada, deve ser realizada em 
Assembler, o que nos for9a a abandonar o aspecto didatico e 
pratico do nosso trabalho. Claro esta que a sub-rotina assim 
tratada ficaria muitissimo mais veloz, eficiente e profissional, 
mas, este aspecto fica para os mais interessados no assunto (o 
autor ja esta elaborando uma para seus programas). 

Falamos muito do novo comando, comparandoo com o 
DRAW, contudo n 2 o explicamos o que este ultimo e e o que 
ele faz (para quern n2o souber). 

Como o nome bem diz, o comando DRAW faz desenhos 
(risca, mostra ou apresenta desenhos) de uma maneira simples 
e facil atraves de subcomandos especificados internamente ao 
comando. Exemplo: se quisermos tra9ar um triangulo-retangu- 
lo bem no centra do video, na cor verde, escreveriamos o se- 
guinte programa, sem o DRAW: 
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10 PMODE 3, 1:PCLEAR: SCREEN 1,1 
20 COLOR 6 

30 LINE ( 100, 80) -( 130, 80) , PSET 
40 LINE -(130, 110), PSET 
50 LINE -(100,80), PSET 
60 GOTO 60 

Ja com o comando DRAW, a situa92o muda: 

10 PMODE 3. 1:PCLEAB: SCREEN l.X 
20 DRAW "BM100.80C6R30D30H30" 

30 GOTO 30 

Numa explica92o suscinta do exposto, os subcomandos 
BM especificam que o tra9ado deve come9ar no par de coorde- 
nadas de video ( 100 , 80 ); o subcomando C especifica a cor 6 
(verde); o R, risca uma linha 30 pontos para a direita, e assim 
por diante. 

Na sub-rotina SDRAW, as coisas se passam de maneira 
identica, segundo regras especificadas a seguir: 

Bxxyyy - Movimenta o cursor sem desenhar, para xx.yyy 

Cc - Indica a cor do risco, de 0 ate 8; 

Un - Risca para cima, n pontos; 

Rn - Risca para a direita, n pontos; 

Dn - Risca para baixo, n pontos; 

Ln - Risca para a esquerda, n pontos; 

En - Risca em angulo de 45 graus, n pontos; 

Fn - Risca em angulo de 135 graus, n pontos; 

Gn - Risca em angulo de 225 graus, n pontos; 

Hn - Risca em angulo de 315 graus, n pontos; 

Vv - Posiciona o tipo de Semigrafico, de 1 a 5; 

Ss - Limpa a tela com a cor s, de 0 a 8; 

Tt - Mostra o carater t onde estiver o cursor; 

Observa98es: Os valores de n, correspondentes ao deslo- 
camento do cursor, v 2 o de 0 ate 9 , sendo que para valores 
maiores deve ser repetido o subcomando tantas vezes quantas 
forem necessarias. Os subcomandos V e T nSo existem no 
DRAW e o S tern fun92o completamente diferente. As coorde- 



nadas do subcomando B variam de 00 ate 63 , na horizontal; e 
de 000 ate 191 , na vertical. 

Os movimentos do cursor s 2 o visualizados pelas figuras 
a seguir: 



Vamos observar na listagem do programa as tres partes 
bem definidas que constituem nosso trabalho. A primeira, das 
linhas 100 ate 150 , content inicializa9oes fundamentals a boa 
execu92o do comando; a segunda, das linhas 160 ate 430 , con- 
tern as chamadas a sub-rotina, representando a utiliza92o pro- 
priamente dita, atraves de assinalamentos ao string A$ e co- 
mandos GOSUB; e a terceira, das linhas 440 ate 780 , e a sub- 
rotina que implementa o comando. 

O programa-exemplo mostrado esta completo. Imple- 
mente-o em seu micro e.veja o que acontece! 

Uma quest 2 o muito importante a ser observada na hora 
de usar o comando SDRAW em seus proprios programas e a 
codifica92o das variaveis, que deve ser respeitada segundo 
aquelas previamente definidas, para n2o ocorrer problemas de 
funcionamento do programa como um todo. Algumas destas 
variaveis s2o documentadas na tabela a seguir, n2o podendo ser 
usadas em nenhum outro lugar do programa: 

CCS - Content a cor de fundo; 

SSS - Content oa padroea de cor de fundo; 

UU - Content o enderego de inicio da area de graficos; 

XX - Content a coordenada X, horizontal; 

yy - Content a coordenada Y, vertical; 

Alem das variaveis descritas anteriormente, s 2 o tambem 
usadas: W, EE, TT, II, DD$, RR, LL, MM, NN, SS, SI, FF e m 
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Atendemos peto Reembolso Postal e VARIG, 
com dsspesas por conta do cliente, para pe- 
didos acima de Cz* 20,00 (VARIG: . . . Cz$ 
50,00). Pedidos menores devem vir acom- 
panhados por cheque nominal ou Vale Pos- 
tal, acrescidos de Cz$ 2,00 para as despesas 
de despacho pelo Correio. 

Rua dos Timbiras, 257 01208 S5o Paulo - SP 
Telefone: (011) 222-0477 Caixa Postal 30.869 




COMANDO DRAW EM SEMIGRAFICOS 



DRAW em semigraficos 



110 ' INICIFTLIZH SDRRW 
120 ' 

130 CC*="F" ’UU=PEEK<8.HBR>*236+PE 
EKd &HBB > 1 XX*0 1 YY “0 
140 VV>INT<UU/S12>’EE=8.HFFC6’TT= 
7 1 GQSUBS70 

130 S3$="S03323F3C393633303" 'POK 
£65314,7 
160 ' 

170 ' UTILIZR R SDRRU 
130 ' 

190 R*»"S0V3" 

200 GO3UB440 

210 Rt""B10041D3FlD3FlD2FlOlF101 
F4R1F1R1F1R2F1R4F1E1R3E1R1E1R1E2 
U1H4" 

220 GOSU6440 

230 R*="U1C4E1U1L2G2L2G1L1G1D1R4 
E1R1E1" 

240 GOSUB440 

230 Fl*= " B 1 9062C8D3G 1 D2G 1 D2S 1 0070 
C7R2E1R4E1R6F1R3F1R2E1R3E1R4F1R1 



F1R1C8B33064D2F1D1 " 

260 COSUB440 

270 R*="S14047C4E1U1E2R2EIR2D2G3 
L2G1L1U1E1C0E2C5E1R1D1G1U2" 

280 GOSUS440 

290 R* - ” B24043C4U2E2R 1 E l R4D2C2L 1 
G1L4E1C0E2C3E1R1D1G1U2" 

300 GOSUB440 

310 fl»- ” B03039C 1 R9R3E 1R4E1R2EIR1 
E1R1E1R2E1R1E1R1E2L9L1H1U1H3L2G1 
L1G2L3G1L3F105G1L1G1L1G1 " 

320 GOSU3440 

330 ■ B23043C8R7F1D1 G4R3E1R2F1 

340 GOSUB440 

330 flf ■ " 60 1 0 1 3C6R9R9R9R9R9D9D9D9 

D9D909D909L3L9L9L9L9U9U9U9J9U9J9 

U9U9" 

360 GOSUB440 
3~0 R*="B48023TO" 

380 G0SUB440 

390 R*="B48030TCTRTITPTITRTfl" 

400 G03UB440 

410 fl#»"B48042TPTITCTRTST3TO" 



420 GO3UB440 
430 C0T0433 
440 ' 

450 ' SUBROT I NR SDRRU 
460 ' 

470 FOR 11=1 TO LEN< R* ? 

430 DD*=MID*Cfl*, II, 1 >’ 11=11+1 
490 IF DD**"B" THEN XX»VF>L<MID*< 
R*- II,2)>'YY=VRL<(1ID*< R*, II+2,3> 
11=11+4 GOTO630 
300 RR»VRL<MID*<B*, II,1>> 

310 ON IHSTR<-SVTC".DD*J+1 GOTO 

320.610,620,630,640 

320 LL= I NSTR< " UDRLEFGH " , DO* >*2 ' M 

H=VflL<MID*C" 0 0+l-l+l+l-l-l",L 

L,2>>'NN=VF.UMID*<" -1+1 0 0-1+1 

+1-1”,LL,2>> 

330 FOR LL-1 TO RR 

340 GOSUB720 1 POKE EE . VRL< EE* > ' XX 

-XX+NI'YY-YY+NN 

533 IF XX<0 THEN XX-0 

360 IF XX>63 THEN XX-63 

370 IF YY<0 THEN YY=0 

330 IF YY>191 THEN YY-191 

330 NEXT LL 

600 GOTO 630 

610 PMODE3, 1 1 SS=RR*2+1 1 POKE 179, 
VRU " 8.H " +M 1 D*< SS* . SS . 2 > > ■ PCLS ’ S I 
■CSS+13 >*8+ 1 3 • GOTOC30 



620 W=< RR-1 J*2 • EE=S,HFFC0 ■ TT=3 • G 
O3UB670 • GOTO630 

630 GOSUB720 FF»flSC<MIDt<R*,II,l 
XX’FOR LL*EE TO EE+160 STEP 32 'P 
OKE LUFF ’NEXT LL . XX-XX+2 • G0T063 
0 

640 CC*=MID*< " 089RBCDEF " , RR+ 1 , 1 ) 
630 NEXT II 
660 RETURN 

670 'CHAVES DE CONTROLE 

630 FOR LL-EE TO EE+TT*2-2 STEP 

690 i1f1=VV'VV=INT< VV72 > 1 POKE LL+M 
M-W*2,P, 

700 NEXT LL 
710 RETURN 

720 ' CRLCULR ENDERECO 

73|^EE=UU+YY*32+INTCXXx2 >. FF=PEE 

740 IF FF-S1 THEN POKE EE.FP AND 
240 

730 KK*< PEEK< EE > AND 1S> OR < 10- 
<XX AND 1 >*S> 

760 EE*="S,H"+CC*+HEX*<KK> 

770 IF CC*="0” THEN EE*""S,HF0" 
78e RETURN 



KK, que servem apenas para trabalho, podendo ser utilizadas 
desde que nao guardem valores permanentes. Adicionalmente, 
a variavel A$ recebe os parametros para a sub-rotina e tambe'm 
pode ser usada enquanto nlo ocorrerem chamadas. 

Por ultimo, vamos lan9ar dois desafios aos leitores. Um.ja 
proposto, e a implementa^So para os semigraficos de outros 
comandos existentes em alta-resolu^So (para n2o complicar 
muito, comecem pelos comandos PSET e PRESET, que tern 
similares no SET e RESET). 

Ja o segundo desafio exige uma elabora^So bem maior, 
consistindo na cria92o de uma sub-rotina ou programa que im- 
plemente textos em semigraficos, semelhantes ao modo texto 
comum do dia-a-dia. A difcren9a fica porconta dosestilosde 



letras e outros simbolos, inclusive pequenos desenhos que ca- 
bem no espa9o ocupado por um ou mais caracteres comuns 
(o ideal e um carater apenas). Uma dica importante: trabalhe 
no modo S24 (vide o j i mencionado artigo de Claudio Costa, 
publicado em dezembro de 1985) mantendo o bit mais 2 es- 
querda de cada byte sempre desligado. 

£ 



Celso Bressan t formado em engenharia elclrOnica e possui o curio de 
pds-graduafao em sistemas de informagao pela UFRGS. Trabalhe em 
processamento de dados, desde 1969. Atualmente, 6 Aralista de Siste- 
mas na PROGERGS — Companhia de Processamento do Estado do Rio. 
Grande do Sul. 




speroni 




O SOFTWARE PARA O SEU MICRO 



Na compra de qualquer // 
produto Softline, II 
receba o informativo TILT vr: 
com a descrigao de 
programas, dicas, novidades 

■£ r _ _ 



F = pode ser gravado em flta K7 
J = uso obrlgatdrlo de Joystick 
48 = roquet 48 K de RAM 
64 = requer 64K de RAM 

JOGOS ■ APPLE II 

- OS 80,00 - 

Sabotage (F) ■ bite os pAra-qued^tas 
Saigon (F) • yigo de xadrea 
Oiaw Poker |F) ■ jogo de poker 
Black|ack|F)Jogode21(cartas| 

Checken (F) - logo de damas 
Hero (F) • resgate os nwveiros perrkdos 
Robotron (F) • destrua os robds mimigos 
Falcon* (FI - jogo lipo Ptiena 
Night Mission |F| * jogo Oe prnball 
Fast Gammon (F) • yygo de gamio 
Othello (F) ■ logo de laOufeiro 
Lode Bonner • pegue os tesouros 
Olympic OecalWn ■ logos olimptcos 
Space Balden (F) • de tpo tcntopSra 
Gorgon |F). pgos (»s Bosses 
The Eliminator |F) - combate espacial 
High! Crawler |F| • enfrente as cenfopdas 
Spate Eggs (Fill ■ eager oios espacais 
Autobahn |F) ■ corrida de carros 
The Asteroid Field (F| • lipo asterddes 
Hard Hal Mack • pengos na construgio 
Choplifter (FJ) - resgate com helvcdptero 
Sea Oregon •pdoleosubmaroo 
Spy's Demise (F| • jogo de agente secrelo 
StarBiarercorrbateadreo 
Viper |F) . alanente a cobra 
Cavern Creatures • penetre na cxetna 
Mdon Patrol (F) • patruba lunar 
Ms Pac Man |F| • a namorada do Pac Man 
Mario Bros |F) Mirio contra o gonla 
Buck Bogen pilote sua nave em ' loom'' 
Plllall II • benturas nas cmernas perddas 
Castle Wollensleln . engane os nanstas 
Beyond Castle Wollenileln mate Hitler 
Artec ■ deofre o enigma da ptSmde arteca 



UTILITARIOS/APLICATIVOS - C2* 360.00 

Visicalc pian.iha deciicuios 

Visiplol/Visilrend gerador de grakos 

Visidex organ uador de aiividades 

Visifile gerador de banco de dados 

Vislterm programa de comumcagao via MODEM 

Visichedule anaiise finances PERT/CPM 

Apple LOGO compiiador 

Apple FORTRAN (CP/M) • compiiador 

Apple Mechanic ■ utilitdno gr#ico 

Alpha Plot gerador de grattcos para uso cornered 

GraFORTH compiiador 

Locksmith 5.0/F uNitir 10 de c6p>a 

Nibbles Away II/C3 uWitano de c6p*a 

The Graphics Magicians animador gratico 

The Graphics Solution editor de graticos 

Print Shop gerador de impressos grificos 

Print Shop Companion complement do Print Shop 

Magic Window II processador de textos 

UTIUTARIOS/APLICATIVOS • CzS 520,00 

News Room faga seu propno jornal 
ASCII Express • super utilUno de comumcagao 
Turbo PASCAL (CP/M) • compdador 
Take 1 super animador gratico 

JOYSTICK ANAL6GIC0 - Cz* 360,00 



JOGOS -CIA300/500 

-CzS 80,00 — 

Flight Simulator |F) • simuBdor be \4b 
Olympic Oecallon (F) - yygos olimpvcos 
Hoppy (F) • sah* o sapo 
Armored Patrol |f) ■ palrulu de Unques 
Urnnr Under |F| - pouse nas craleras da lira 
Allan Defense (F) • prate* se dos mrasores 
Meleor Mission (F) • capada espacal 
Outhouse (F) • proteja o seu banhera 
Robot Attack (F) - destrua os robds 
Sea Dragon |F) ■ prkHC um submarino 

Mi„n, «,„u rev . ePtoiln 



JOGOS • SPECTRUM/TK 90X 
- Cz$ 70,00- 



Monty Mole (48) ■ pegue o cdrvao nas cavernas 

3D Lunaltack (48) erplore uma lena immiga 

Ore Attack (48) - delenda seu castelo dos mvasores 

Armageddon (48) - igual ao missile comando do ATARI 

Eric (48) ■ destrua os baldes 

Beaky (48)pro(eiaosovos 

Hardcheeee (48) • similar ao MR. DO 

Huoled Hedges (48) exclusive PAC MAN tridimensional 

Caesar the Cal (48) • delenda sua geladcira dos ralos 

MlcroOol (48) uma avtnlura nos encanamenlos 

Rupert (48) • cumpra a sua missao numa terra esrranna 

Moon Alert (48) ■ meihor que o Moon Patrol do tripper 

Stop the Express (48) pare um item 

Bruce lee (48) • lute Hung Fu contra os mimigos 

la Squola (48) ■ se* um aluno travesso. em 30 

Allen 8 (48) aiude a reanimar os astronaulas. em 30 

Critical Mass (48) ande na superficie lunar, em 30 

Raid over Moscow (48) mvada a cidade de Moscou 

Underwuilde (48) • continuaqJo do Sabre Wuil 

Zaxxon (48) lamoso logo na sua wrsSo original 

Spy Hunter (48) aiude o espido ncsta aveniura 

Flak (48| parecido com o Columbia 

Gllllgan's Gold (48) roube o ouro das minas 

Blue Max (48) pilote um bipiano em 30 

Hunckback II (48) aiude o corcunda ■ . • • -ova missio 

Fighter Pilot (48) • prlote um F-15 Eagle 

Flight Simulation (48) - srmulador de vdo 

TerroiOaklll 40 (48) • agio na terra perdtda 

Trader (48) - comf rco e agio no espago 

Styx (48) ande no laOitinto e mate a bruxa 

Tulankhamun (48) • explore a lurrba do larad 

Tornado (48) • p-tote o avilo. Cenino em 3D 

Match Point (48) - lanlislico ISms em 3D 

Cevelon (18) • uma wentura no castelo 

AD Astro (48) • salve os soidados Agio em 3D 

Galaxy Attack (48) • vines fascs no espago 

Cheat (48) • logo de xadrer com vinos niseis 

Android 2 (48) male os roods Cenino em 30 

Delta Wing (18) • pMe um caga F-16 em 30 

Manic Miner (48) • recoina os objetos da mate 

Potty Painter (48) • preencha os quadratics 



Strip Poker (48) • rkspa sua marvel oponenle 
Esquimo Eddie (48) * uma bentura na amirtca 
Hong (48| ■ aiude Mario a sator a moga do gonla 
Turii Fnrttl (48) • incrfvel caga mqueis soncro 
Pinball (48) • simUagio de um pirtxall 
Freet (48) • destrua o mmgo com os cvjOos de gelo 
New Poker (48) . dissvco logo de poker 



JOGOS - Cll 100,00 

Never Ending Story (48) • jogo Oaseado no rilme 
Valhalla (48) - aveniura na era medieval 

UTIUTARIOS/APLICATIVOS • SPECTRUM/ 
TK90X 

-CzS 80,00 — 

VU 30 - utiritino grilrco Telas em 30 
VUCalc-ptanilhadecilculos 
VU File • arquno de dados para uso goal 
Ultra Violet ■ super rksassembter 
MCODER II compviador BASIC 

— CzS 100.00 — 

SoltCAlC • pianilha de dlculos com GRAFICOS 
PASCAL 1.6- compviador 
SpecFORTH- compiiador 
ASSEMBLER - super enter assemWer 
Tasword II • processadw de texto com 64 coAmas 
The RET ■ super coprador de programas 
Palm Phis • eaior de telas grileas 
Screen Machine . utrMAcro grilco 

HOT BIT/EXPERT (MSX) 

JOGOS • Cz| 80,00 

Flight Slmolalor • simuiador de vdo num Boeing 73/ 
Polar Star guermha edsmvea cm POLAR IV, 30 
Donpan Onertido logo de ag»o 
Jumping Rabbit aiude o coelho a subu o cdilicio 
Project A »go com mcrlveis Arias de Hung Fu 
Haunted House cscalc o prOdra assomOrado 
Trick Bov lanlislico rogo de Eripoerama 





Criar programas eficientes e economicos no Basic do ZX81 nao e 
tao dificil assim. Veja agora alguns macetes que podem ajuda-lo. 



Programe bem, 
sem desperdfcios! 

Joao Jose Marques Gonqalves 



U m dos pontos fracos dos micros OS NUMEROS DO PROGRAM A 
da linha ZX81 d certamente a 

sua baixa velocidade de execu- As constantes numericas, como todos 
5 S 0 . Isto acaba levando a maio- jd devem saber, ocupam alem do espa$o 



Teste esta rotina e depois experimen- 
te com: 

20 PRINT AT 12, 16; CHR$(28+F) 

Veja como e simples e rapido este 
metodo. Assim, pouco a pouco, seu pro- 
grama vai ficando mais dgil e economi- 
co. 

OUTROS MACETES 

A questao da lentidao do BASIC 
sempre deve ser levada em considera^So 
antes de se come?ar a criar um progra- 
ma. Isto d vdlido para qualquer compu- 
tador, entretanto, no caso da linha 
ZX81 e extremamente crftico. EntSo, 
torna-se necessdrio um planejamento 
mais cuidadoso do algoritmo do progra- 
ma. Por exemplo, podemos tentar evi- 
tar longas listas de LETs ou rotinas de 
definifao de varidveis. No entanto, as 
vezes, isto n3o d possivel de ser feito. 
Quando isso acontece a solu^ao d 
tentar usar estas rotinas como rotinas 
de temporizaijao de apresenta 95 es e tex- 
tos. Tenho um programa que utuliza 
esta tdcnica e 0 efeito d muito bom. 
Assim, n2o d necessdrio recorrer ao 
incomodo FAST e o resultado s2o as 
suas varidveis defmidas de forma im- 
perceptivel ao usudrio. 



Outra coisa que deve ser evitada e a 
repet^do, muitas vezes desnecessaria, 
de calculos numericos complicados que 
0 computador leva tempo para realizar. 
Neste caso, se enquadram principalmen- 
te as fun 96 es exponenciais, logaritmicas, 
trigonometricas ou de grau maior ou 
igual a dois. Quando estas fu^Oes fo- 
rem usadas vdrias vezes pelo programa 
com seqiiencias previsiveis de valores 
para suas varidveis independentes, d con- 
veniente executd-las apenas uma vez e 
armazenar seus resultados em um array 
para posterior utiliza 92 o. Esta d uma 
forma de se reduzir o tempo gasto com 
calculos em alguns programas. 

Para finalizar, vou voltar a destacar 
a importancia dos cuidados com a codi- 
fica 93 o, pois ainda hoje d muito comum 
o uso pouco inteligente de algumas das 
instru 95 es mais simples do BASIC. O 
PRINT e o IF THEN s2o as principals. 

No caso do PRINT, por exemplo, d 
muito comum coisas deste tipo: 

10 PRINT “MICRO” 

20 PRINT “SISTEMAS” 

Entretanto, o que foi feito pode ser es- 
crito assim: 



A diferen 9 a de velocidade e desprezi- 
vel, mas com rela 9 ao ao consumo de me- 
moria, o segundo metodo e quatro bytes 
mais economico. 

Outro recurso pouquissimo explora- 
do d o das impressbes condicionais co- 
mo esta: PRINT AS AND B=10, ou 
seja, se B=10, a variavel AS ira para 
a tela, caso contrario serd impressa uma 
string vazia. 

No caso do IF THEN, o que eu posso 
recomendar e 0 uso, sempre que possi- 
vel, das fun 9 bes AND e OR, evitando 
assim longas listas de desvios condi- 
cionais para o mesmo lugar. Uma 
boa dica tambdm e a substitu^ao de 
compasses do tipo A = 0 ou A < > 
0 por NOT A e A simplesmente. 

Todos os macetes ou tdcnicas apre- 
sentadas neste artigo n 2 o tern como 
finalidade transformar o ZX81 em um 
supermicro, mas, com um pouquinho de 
jeito c imagina 93 o, podem tornar seus 
programas em BASIC menos enfado- 
nhos e mais economicos. Feliz progra- 
ma93o. 

as 

Joao Josr f M. Gonfalves estuda engenharia 
e!6trica, na FEPI, e faz um curso de processa- 
mento de dados, na FEPI. Ele ainda programa 
em BASIC e Assembler nos micros ZX81, 
TRS-80 e Apple II. 



10 PRINT “MICRO” 
“SISTEMAS” 



“COMUTADORES MANUAIS E AUTOMATICOS 
DA SUPORTE E O CAM IN HO MAIS FACIL 
PARA SEU PERIFERICO” 




SSUPDRTE 



RIO: RUA CURUZU, 17 TEL (021) 580-4880/7886 TELEX: (021) 36577 SPOT 
SP: PRAQA DA REPUBLICA. 272 CONJ. 32 TEL: (011) 231-2678 
BAHIA: RUA DOS BANDEIRANTES, 92 TEL: (071) 244-3409 





Minissintetizador 
no Apple 

Esta dica traz urn programa que Si- 
mula um miniorgao, que pode ser roda- 
do em computadores da linha Apple. 
Apos rodd-lo, as teclas numericas (1 a 
0) produzem sons semelhantes aos de 
um sintetizador. 

2 POKE 770,173: POKE 771,40: POKE 

772,192: POKE 773,136: POKE 
774,208: POKE 775,5: POKE 77 
6,206: POKE 777,1: POKE 770, 

3: POKE 779,240: POKE 700,9: 

POKE 7131,202: POKE 782,208: 

3 POKE 783,245: POKE 784,174: POKE 

785,0: POKE 736,3: POKE 787, 

76: POKE 780,2: POKE 789,3: POKE 
790,96: POKE 791,0: POKE 792 

.0 

4 GOTO 100 



In 

dioS 



MSX 



19 


REM 








20 


GET A* 








32 


IF A* * 


"i" 


THEN 


A « 10 


33 


IF A* *• 


it 2" 


THEN 


A « 20 


34 


IF At = 


"3» 


THEN 


A » 30 


35 


IF A* * 


•• 4 •« 


THEN 


A ■ 40 


36 


IF A* » 


" " 


THEN 


A ■=• 50 


37 


IF A* * 


" 6 ” 


Tl IEN 


A * 60 


3S 


IF A* « 


"7" 


THEN 


A 70 


59 


IF A* ■ 


"tl" 


THEN 


A - 00 


40 


IF A* “ 


"9" 


THEN 


A * 90 


41 


IF A* - 


1.0. . 


THEN 


A “ 100 


60 


HUME : POKE 


768, A: POKE 769, A 




: CALL 


770 




70 


GOTO 20 








100 


HOME 








1 10 


PRINT •• 


HeillllllMIHIIStNTETI 7AD0R 




1 ItteillHI«MtHMtltttlt": PRINT 


111 


PRINT " 


TECLAS: 1 


:2:3:4:3:6:7 




: 0:9:0” 


: PRINT : 


PRINT TAEU 




9 > ? " (CTRL - 


RESET 


PARA SAIR)" 


112 


FOR I •* 


1 


TO 5000: NEXT !: HOME 


113 


GOTO 20 






120 


REM IVAN 


B.0.I.- 


•24 702/86 



Envie suas dicas para a RedapSo de 
MICRO SISTEMAS na Av. Presidente 
Wilson, 165 - grupo 1210. Centro, Rio de 
Janeiro, RJ. CEP 20030 



Tamanho 
do programa 

Se voce quiser sa- 
ber quantos Bytes o- 
cupa o seu programa, 
fa$a o seguinte: 

a) De um LIST. 

b) De o seguinte 
comando direto: 
PRINT 28815 -FRE(l) 

O resultado serd a 
memdria ocupada 
pelo seu programa. 



S4rgio Augusto 
Freire de Souza - AM 



Linha TRS-COLOR 



Construindo com rapidez 

jequena dica, pode- 20 para: 



Com esta pequena dica, pode- 
se construir um prddio com quan- 
tos andares quiser! Basta inserir 
esta rotina nos programas que 
utilizem alta resolu$do grdfica: 

10 PliODE 4 : PCLS 5: SCREEN 1,1 
20 FOR N=0 TO 19 STEP .5 
30 CIRCLE <129, 191),9,0,N 
40 NEXT 
30 GOTO 50 

Se voce preferir andares mais 
“espremidos”, modifique a linha 



Ivan S. G. Lima - BA. 



Linha MSX 



Ampliando 

caracteres 

Uma das caracteristicas 
mais interessantes dos micros 
da linha MSX 6 a possibilida- 
de de misturar textos e grd- 
ficos. 

Sendo assim, elaborei um 
pequeno programa que am- 
plia o tamanho dos caracteres. 

10 r.i.s 

20 OPEN "GRP: "AS# ! 

30 SCREEN 3 
40 PRESET (H0,72) 

50 PRINT IH,"tiSX" 

60 COLOR Rl ID U ) « 1 5 
70 GOTO 40 



Roberto A. M. do Valle e 
Silvio Rafael M. dos Santos - RJ. 



Linha ZX81 



Monitor de programas 



20 FOR N=0 TO 19 STEP .25 

Voce pode, ainda, encher a tela 
com prddios de diferentes tama- 
nhos, digitando: 

15 FOR M»0 TO 240 STEP IS 
17 C=RND(10)+B 
20 FOR N-0 TO C STEP .5 
30 CIRCLE (10+M, 191) ,9,0, N 
40 NEXT N,M 



Winfried H. Schumann - PR 



Linha APPLE 



Existem alguns progra- 
mas em Assembler que sao 
executados na RAMTOP 
do micro, e para serem gra- 
vados tern que ser transfe- 
ridos para a area do BASIC. 

A finalidade desta Dica 
e justamente facilitar este 
trabalho. Para usd-la voce 
deve colocar seu programa 
na RAMTOP e seguir os 
passos abaixo: 

1 - Coloque no lugar da 

variavel Y o tamanho 
do seu programa em 
codigo de maquina. 

2 - Entre com os POKES 

abaixo: 

POKE 16523, INT 
(X/256) 

POKE 16522, X-PE- 
EK 16523 *256 
POKE 16526, INT 
(Y/2S6) 

POKE 16525, Y-PE- 
EK 16526*256 
onde X e o enderego 



inicial do programa e 
Y a quantidade de 
bytes. 

3 - Execute o programa 
com RUN e NEW 
LINE, mas antes acio- 
ne o gravador com 
RECORD/PLAY. 

Para fazer esta DICA, 
crie a linha 1 REM com 33 
caracteres, e, apds digitar a 
listagem em REXA, entre 
com o programa em BASIC 
e salve-o em fita. 



16514 2A JO 40 11 06 OO 19 11 
1653£ 00 78 01 11 04 C9 CD 8£ 
S? S? ED 00 C9 CD 82 40 
16538 ED 53 04 40 ED 60 C9 



£ CLEAR 

3 DIM At 1Y) 

4 PAND U5P 16528 

5 3AUE PPOGPAMA" 

6 PAND USP 16535 

7 NEU 



Gilson Roberto Viana - PR. 



TK 2000 



Efeito colorido 

Veja o bonito efeito des- 
ta dica: 



10 HOME 

20 GR 

30 FOR A - 0 TO 39 
33 COLOR- INT ( RND <1> * 7 + 1 
) 

40 HLIN 0,39 AT A 

41 VL IN 0,39 AT A 

42 HLIN 0,39 AT 39 - A 

43 VLIN 0,39 AT 39 - A 

44 SOUNDA, A ♦ 1 TO A, A + 2 

30 NEXT A 

60 GOTO 30 

Obs.: Se voce possuir um 
Apple, retire a linha 44. 



Jorge Pablo Zapata Rivera - BA. 



Linha TRS-COLOR 



Seno e co-seno no Color 

Este programa faz desenhos abstratos aleatoriamente, 
em alta resolu?ao, usando comandos como SIN(SENO) 
e COS(CO-SENO), e ocupando apenas 400 bytes (mais 
ou menos). 

Na linha 20, o POKE foi usado para aumentar a velo- 
cidade de processamento do programa (isto pode provo- 
car uma acelera$5o no modo de piscar do cursor, que 
pode voltar ao normal pressionando-se RESET). 

10 ’ SIN 6 CDS NO COLOR 
20 L=RND(15):L1=RND(17) 

30 M“RND<7) :POKE 65495,0 
40 PMODE 4, l: POLS: TIMER" 15 
50 A” RND ( 2 ) : SCREEN t,l 
60 FOR P=1 TO 7.3 STEP (TIMER/200) 

70 Y=SIN(F+14. 16) *55+126 
80 X=COS(P+L> *85+94 

90 Y 1 =COS < F*L ) * < 75+M > ♦ 1 26 : X 1 -*S I N CF+L 1 > • ( 45 +M > +96 
100 LINE <Y,X>— <Y1,X1),PSET 
110 LINE -<Y1,X),PSET 

120 IF INT (A) *2 THEN LINE - ( Y, X 1 ) , PSET 
130 K-1NT(Y):IF K>11 THEN K-K-10: SOUND K, 1 
140 NEXT F 

150 FOR F-l TO 4000: NEXT F : RUN 



Linha APPLE 



POKES & CATALOG 

Com os POKEs abaixo, voce pode controlar a amos- 
tragem de arquivos do seu disquete no comando CA- 
TALOG. 

a) Coloca uma parada depois de cada arquivo, pros- 
seguindo com o acionamento de qualquer tecla: 

IPOKE 44599, 234: POKE 44600,234 

b) Com estes POKEs, um & seguido de<RETURN> 
sera interpretado como PRINT CHR$(4) “CATALOG”: 

IPOKE 1013, 76: POKE 1014, 1 10: POKE 1015,165 

Bruno Lopes F. Cabral - PB. 



Linha TRS-80 



RUN em BASIC Disco 

Em seu DOS 500, sempre que desejar que um pro- 
grama seja executado a<5 colocar o disco use o coman- 

d0: AUTO BASIC Nome/BAS 

Voce tambdm pode usar este comando para pro- 
gramas em Assembler, bastando retirar o BASIC e, 
se desejar ver o diretdrio logo na entrada, coloque 
a P enas: 



AUTO DIR 



Almir Petrecca Martins - SP. 



Linha 



Linha 



ZX Spectrum ■ TRS-COLOR 



O estranho DRAW 

Este programa traz uma boa 
mistura de cores, principalmente 
quando as duas figuras se encon- 
tram. Vale tentar acrescentar mais 
DRAW num loop e ver o que 
acontece. Apos digitar o progra- 
ma, o usudrio pode ativar o 
flash, independente de qualquer 
linha, para torna-lo mais interes- 
sante. 



10 REM 0 estranho DRAW 
20 FOR J=0 TO 125 
30 PLOT J.-10 ORAL) 1.32 DRAW 
OVER 1,20.0 ORAU INUERSE lil,- 

1 

40 FOR F=1 TO 10 

50 PLOT 30, F ORAU OVER 1; 60 6 

0 

60 NEXT F 
70 NEXT J 
30 GOTO 20 



Antonio Frederico Helvy Dantas - RJ. 



Protegao 
contra o RESET 

Com esta pequena rotina voce 
vai proteger seus programas contra 
um casual ou proposital RESET. 
Colocando esta linha no seu pro- 
grama, toda vez que for pressio- 
nada a tecla RESET ele se auto- 
executara sem precisar de teclar 
RUN novamente. 

10 A=PEEK ( 1 16) *256+PECK ( 1 17) -20: 
X= INT ( A/256) : Y=A- < X*256) : POKE 11 
3, 85: POKE U4,X:POKE 115,Y:F0R I 
=A TO A+l 7 : READ 8:P0KE I,B:NEXT 
I : DATA 10, 182,255,3, 138, 1, 183,25 
5,3, 109, 173,33, 139, 172,239. 126, 1 
73, 158 

Nota: So pode ser usado com mi- 
cros que possuem o Extended 
Color BASIC. 0 CP 400 tern. 



Marcos Ortiz - SP. 



Linha ZX Spectrum 



Protegao de programas 



Nesta dica, segue uma sugestao 
para a protegao de seus programas: 

10 POKE 23613,0 
20 FOR n =1 TO 704 
30 PRINT "a"; 

40 NEXT n 



Digite RUN e a tela sera preenchi- 
da com a letra A. Rode de novo o 
programa e tente interrompe-lo com 
BREAK:- Recebera um RESET res- 
posta. 

Jo§o Eriberto Mota Filho - RJ. 



Bruno Lopes F. Cabral • PB. 



Linha TRS-80 



Folhas para menus 

A apresenta$3o dos menus 
de seus programas ficard mais 
bonita com a utiliza 9 do desta 
dica. Acrescente-a e verd as 
op^Ses de acionamento de roti- 
nas no meio da tela dentro de 
“folhas”, como fichas de um ar- 
quivo. 

10 ’ TRS 80 MODELOS I /1 1 1 

20 ’FOLHAS ESFERTAS PARA SEUS 
MENUS 

30 ’COLOQUE NO MEIO DA TELA 
AS OFCOES I)L ACIONAMENTO DE RO 
T I NAS 

40 CLEAR 300:A*^CHR*:i76> I 
STR 1 NOT (SO, 179) +CHR* ( 131 ) +CI IR* 
(131 > +CHR*(I31 > : Dt-DTRING* (60, 
140) :i;*aSTRING*(29, 140) : D*=STR 
I NR* (611, 176) 

50 CLS: PR IN 10)2, At I" 6 4 . 0*0223, C 
*0960 , D* : : FORN’0 TO 2 : SET ( 7 , N ) 
:SET(3,M+2):NEXT:F0R N=4 to 9: 
SET (0, N> :SE r (61 , N+l ) :3ET ( 1 19, N 
- : SET ( 1 23, N -2) : SET ( 127, N-4 ) : NE 
XT:FOR N-10 TO 47: SET (0, N) : SET 
(I 19, N> : SET 1 123, N-2) :SET(127,N 
-4 >:next:for n-120 to 122:set( 

N, 45 » : SET (Ni I, 43) : NEXT 
60 PR 1 NT 0 i 66 , "TECLE<RCTURN>"! 
/0 Y* JNKEY*: IF 7*=CHR*(13)TH 
Ell 30 

00 GOOUEi 100 
90 GOTO 70 

100 FOR N-0 TO 800: NEXT: FOR N= 
63 TO 1 1 7: SET (N, 5) : SET (N, ?> : RE 
SET (N- 1,5): RESET (N-l. 9): NEXT N 
: RESET (N— 1,5) : RESET (N-1,9) :RET 
URN 

110 'JORGE LUI 1 MANQINI SILVA- 
RJ 



Jorge Luiz Mangini Silva - RJ. 






















ATl-ProdocSo 



Alioro 

Fichas 



MSX 

SUBCOMANDOS DA FUNCAO PLAY 



ajjA Sees 

Slstemas 



SUB- 

COMANDOS 


VALORES 

PERMITIDOS 


FUNQAO 


VALOR 

INICIAL 


Tn 


de 32 a 255 


Determina o andamento da musica. 


120 


On 


de 1 a 8 


Determina uma das 8 oitavas do MSX. 


4 


Ln 


de 1 a 64 


Determina a duragao da nota. 


4 


Nn 


de 0 a 96 


Especifica uma nota musical. 


— 


A# a G# 
A a G 
A - a G 


assume o 
valor de Ln 


Especifica a nota musical, dentro de uma 
oitava predeterminada. 

"#" ou " + " = sustenido e = bemol. 


— 


An - Gn 


de 1 a 64 


Como no quadro anterior, porem com a 
duragao independente de Ln. 


— 


Rn 


de 1 a 64 


Determina uma pausa. 


— 


• 


nao tem 


Aumenta a duragao de uma nota ou de uma 
pausa em 50%. 


— 


Vn 


de 0 a 15 


Determina o volume. 


8 


Mn 


de 0 a 65535 


Determina o periodo da variagao de volume 
durante a execugao da nota. 


— 


Sn 




Determina o formato do envelope. 






Entre para o nosso time 



Nao deixe o seu talento dentro de uma gaveta. Se voce tem interesse 
em tornar publica toda a sua criatividade, escreva para MICRO 
SISTEMAS, pois aqui temos espapo para seus artigos e programas. 

Lembre-se que os textos remetidos h revista devem estar 
datilografados e, caso necessbrio, ilustrados com exemplos e fotos, 
aldm de figuras ou tabelas; ji os programas devem ser acompanhados 
de cbpias em disco ou fita, e se possi'vel, de listagens impresses ou 
mesmo datilografadas. 

Anexo ao material, o colaborador deverb enviar um breve curri'culo, 
seu enderepo e telefone para contatos. 

Todo o material publicado pela revista serb remunerado, e os textos 
nao aproveitados serao devolvidos aos autores. 

Envie seu trabalho para REDAQAO/MICRO SISTEMAS: 

RIO - Av. Presidente Wilson, 165/grupo 1210, Centro, CEP: 

20030 — Rio de Janeiro — RJ. 

SAO PAULO - Rua Oliveira Dias, 153, Jardim Paulista, CEP: 

01433 — Sao Paulo — SP. 

M6dulo LIST para o 0 res de MS. sobre os 

ss. — — -■ ’ - ioCFD 

MSX nacionais. — 
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COMPUTAQAO E INFORMATICA LTOA 



APRESENTA 



SOFT MSX 



APLICATIVOS 

JOGOS 

EDUCATIVOS 




TUD0 EM MICROS 



Cursos -> Hardware 
Suprimentos —> Soft 

ATENDEMOS TODO 
O BRASIL. 

SOLICITE CATALOGO 

AV.CASTEL0 BRANCO, 800 
S. 106 — CEP 65075 
F0NE (098) 227-1615 
SAO LUIS — MA 





Um CLUBE MUITO ESPECIAL 
Para usuarios dos equipamentos 
TK-85, TK90X, CP-400, CP-500 
e compativeis 




NOVA FASE 1966 
VOCE RECEBE, INTEIRAMENTE 
GRATIS: 

_ Um curso complelo tie proKramaqAo de |oyo> 
— Fdigbes Mensais do Compudub 
News, com programas de jogos, 
aplicativos e dicas especiais para o 
seu equlpamento. 

— A cada 45 dias, programas 

amplamente documentados, com 
seus manuals de instruct), 
gravados em fita HOT LINE, a 
melhor opgio para o seu acervo de 

■ 2 * 5 ! 

Associando-se agora, vocb ainda 
recebe os 5 boletins jl edilados pelo 
clube, induindo o especial 
dezembro/85. 

Solidle, ainda hoje, informagbes 
detalhadas acerca de como partidpar 
do COMPUCLUB. Nio se esquega, 
por6m, de indlcar o tipo de micro que 
vocb possui. 

COMPUCLUB — Caixa Postal 46 (36570) VI$o»a-MG 





CfiTfil.tlOr 

CIlRTISS 

c x , P o i- 1 a l & i i s e 

53 0 P a w t o ; 5 P 



O “PACOTAO” OFERECE: 



• Micros 
• Software 

• Assistencia Tbcnica 
IBM/PC, XT e AT 

• Suprimentos 

• Acessbrios Perifbricos 

CONSULTE 
NOSSOS PREQOS! 

LIGUE JA! 

( 011 ) 276.8988 

^DACA^OAD 

Ruo Luiz Gods, 1 894 — S6o Paulo 
CEP 04043 - Telex: (Oil) 37755 DTRD 




APPLESOFT? 



A resposta e... 



Que oferece para voc& o 



maior acervo do Brasil em 



progromos poro lit, lie e lie. 
Possui sempre as ultimas 



novidades em utilitdrios i 



jogos. Escreva para n6s para 





Uvrana Pop* la no Discos & Fitas 



BH SHOPPING 

Completa se?ao de Informa- 
tica com livros e revistas, e 
revistas, e mais livros de ar- 
te, romances e didatico. 





O BEL-BAZAR 
ELETRONICO 



onde voce AINDA 
encontra prego 
e qualidade 
de ANTIGAMENTE! 



PARA PROBLEMAS COM MATERIAL DE 



Atendemos pelo Reembolso 
Postal 

8 lojas em B.H. 



I BH SHOPPING 

BR 040 Lj. NL 34 
Fone: 225-8058 
^^C^PostaM377 



DESENHO - PINTURA - ENGENHARIA 
- PAPELARIA - ESCRITORIO MAQUINAS PI 
ESCRITORIO E SUPRIMENTOS EM GERAL 



AV. ALMIRANTE BARROSO, 81 - Lj. "C” 
Tels.: 262-9229 - 262-9088 - 240-8410 
CASTELO - RIO DE JANEIRO 



SOFWARE BARATO! 



A ALFAMICRO coloca a sua disposicao os 
melhores programas do mercado inlerna* 
cional ao manor prego. 

PROGRAMAS PARA APPLE 

Escolha os seus entre mais de 2.000 tltulos 
que cobrem as mais variadas aplicagoes a 
CzJ 35.00 por disco . 

PROGRAMAS PARA CP-500 

Os mais tamosos titulos a CzJ 45,00 por 
disco. 

POSSUIMOS TAMBEM PROGRAMAS PA- 
HA IBM- PC • S-700 

Escreva ja! E recebe nosso catalogo. 

ADQUIRA PELO CORREIO PERIF6RICOS 
E ASSESSbRIOS PARA APPLE E IBM-PC 
PELOS MELHORES PREQOS. 

CONSULTE-NOS. COBRIMOS QUALQUER 
OFERTAt 

ALFAMICRO INFORMATICA 
Cx. Postal, 12.064 — 02098 
F. 011 - 950-8998 - Sfio Paulo - SP 









































Graficos 

no TURBO Pascal 



Comofoi mostradono artigo “ Versoesdo Pascal”, publicado em MS n.°56, 
o TURBO Pascal nao possui capacidade grafica quando utilizado no CP/M 80 
(a versao 3.0 permite graficos no IBM-PC e compatfveis). Entretanto, como o 
Pascal vem se tornando uma das linguagens preferidas tanto dos hobbystas 
quanto dos programadores profissionais, vamos apresentar em uma serie de 
artigos as ferramentas necessarias a implantagao de graficos de media e alta 
resolugoes para este compilador. 



sta sdrie serd dividida em quatro partes. No segmento 
inicial, veremos quais sdo as ferramentas necessdrias pa- 
ra a construgdo ae um pacote grdfico para mddia reso- 
lugdo e, posteriormente, trataremos dos grdficos de 
alta resolugdo. Ao final de cada segmento, serd apresentado um 
pacote, jd pronto, que serd a jungao de tudo o que foi visto e 

S ue permitird um fdcil uso das capacidades grdficas do Apple. 

om os conhecimentos adquiridos no primeiro segmento, serd 
possfvel a implementagdo de grdficos de mddia resolugdo para 
qualquer linguagem do CP/M que permita o uso do Assembler. 
Quanto aos de alta resolugdo, dependerd muito da forma como 
uma determinada linguagem ocupa a memdria. Isto ficard 
mais claro quando tratarmos.deste assunto. 

Para que se possa acompanhar este estudo, serd necessdrio 
que se possua o CP/M80 para o Apple (placa e disco) e o compi- 
lador TURBO Pascal. Um conhecimento bdsico do Z80/8080 
e do 6502 serd importante, pois usaremos estes microprocessa- 
dores exaustivamente, embora sem grandes malabarismos, isto 
d, de forma bem simples. Pordm, mesmo os que ndo sabem ou 
ndo gostam do Assembler poderdo aproveitar os frutos deste 
estudo, jd que, se digitarem os dois pacotes finals, poderdo 
utilizd-los sem grandes problemas. 

Em todos os exemplos que veremos, serd estabelecido que 
s6 existe um drive e que o micro tern 48 Kf de memdria. Caso 
o seu micro possua dois drives e mais de 48 Kb, ndo haverd 
problema, pois os exemplos funcionardo da mesma forma. Ca- 
so voce utilize uma placa de 80 colunas, esta devera ser desliga- 
da, pois tambem estabelecemos que a tela 6 de 24 linhas por 
40 colunas. 

ASSEMBLER NO CP/M 

A primeira providencia que devemos tomar 6 saber utilizar 
o ASM.COM, que e o Assembler que vem com o CP/M. Po- 
rdm, apesar da placa CP/M possuir um Z80, o ASM s6 reco- 
nhece os mnemonicos do 8080. Mesmo assim, existem alguns 
macetes que nos permitirdo utilizar o Z80 com toda a sua po- 
tencialidade, como veremos mais tarde. 

Para escrevermos um programa, precisaremos de um editor 
como o ED (ternvel de se usar), WordStar ou o proprio editor 



Antonio Carlos Salgado Guimaraes 

do TURBO Pascal (muito semelhante ao WordStar). Caso voce 
utilize este ultimo, ao ser perguntado se deseja carregar as men- 
sagens de erro, responda N (ndo), para que sobre mais espago 
para o arquivo a ser editado. O arquivo criado por qualquer 
um destes editores deverd ter ASM como tipo de arquivo 
(arq. ASM). 

Quando o programa estiver pronto, deveremos usar o ASM 
para assemble -lo. Supondo que o programa esteja no arquivo 
EX 1 .ASM, deveremos dar o seguinte comando: 

A > ASM EX1 (CR) 

Se tudo correr bem, serd fomecida uma mensagem do tipo: 
nnnn 

mmmH USE FACTOR 
END OF ASSEMBLY 

onde nnnn e mmmH sdo numeros hexadecimais. Qualquer 
outra mensagem deverd ser entendida como mensagem de erro. 

O ASM gera dois arquivos, um com terminagdo HEX, que 
contdm cddigo em hexadecimal do programa assemblado em 
um formato especial, e outro com terminagdo PRN, que con- 
tdm a listagem do programa. 

Ap6s havermos assemblado o programa corretamente, de- 
vemos criar um programa executdvel, e para isto devemos 
utilizar o LOAD.COM, que tern por fungdo pegar um arquivo 
do tipo HEX e transformd-lo em COM. O comando necessdrio 
6 : 

A > LOAD EX1 (CR) 

Agora 6 s6 rodar o programa, o que 6 feito digitando-se o seu 
nome diretamente e dando “CR”: 

A > EX1 (CR) 

Na listagem 1 , apresentamos um exemplo no qual imprimi- 
mos algo na tela; na 2, seu equivalente HEX; e na 3, seu equi- 
valente PRN. 

ObservagSes: 

Os dois ultimos caracteres de cada linha da listagem 2 fun- 
cionam como um checksum e deverao ser utilizados quando 
montarmos o pacote de alta resolugdo. . 

Note que na listagem 3 faltam os c6digos de algumas letras 
que formam o texto. Isto sempre e feito pelo ASM e ndo deve 
ser motivo de preocupagdo. 
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O Z80 e o 6502 



Listagem 2 



Como todos sabem, o microprocessador do Apple 6 o 
6502. Entretanto, quando instalamos a placa de CP/M e 
damos o boot com um disco que tenha sido formatado pelo 
CP/M, quern passa a ser o microprocessador principal i, o Z80, 
ficando o 6502 responsdvel pela parte I/O. Isto significa que o 
6502 tambem continua funcionando e esta a nossa disposigdo. 
Bastard, entdo, saber como ativd-lo quando for necessdrio. De- 
pois que descobrirmos como isto deve ser feito, teremos capa- 
cidade de utilizar todas as rotinas intemas da ROM do Apple, 
principalmente as que tratam da parte grdfica deste micro. Isto 
evitard que tenhamos que desenvolver novas rotinas, as quais, 
aldm de serem bastante dificeis de fazer, provavelmente ndo 
seriam tdo eficientes e gastariam memdria desnecessariamente. 
Vamos, entdo, aproveitar o que jd estd feito. 



Figura 1 - Tabela 
de conversao de 
enderefos. 



Z80 


6502 


00000H 


- 


OOFFFH 


$1000 


- 


S1FFF 


01000H 


- 


01FFFH 


$2000 


- 


$2FFF 


02000H 


- 


02FFFH 


$3000 


- 


S3FFF 


03000H 


- 


03FFFH 


$4000 


- 


$4FFF 


04000H 


- 


04FFFH 


$5000 


- 


S5FFF 


05000H 


- 


05FFFH 


$6000 


- 


S6FFF 


06000H 


- 


06FFFH 


$7000 


- 


$7FFF 


07000H 


- 


07FFFH 


$8000 


- 


$8FFF 


08000H 


- 


08FFFH 


$9000 


- 


$9FFF 


09000H 


- 


09FFFH 


$A000 


- 


SAFFF 


0A000H 


- 


OAFFFH 


$B000 


- 


$BFFF 


0B000H 


- 


OBFFFH 


$0000 


- 


SDFFF (*) 


0C000H 


- 


OCFFFH 


$E000 


- 


SEFFF 


0D000H 


- 


ODFFFH 


$F000 


- 


SFFFF 


0E000H 


- 


OEFFFH 


scooo 


- 


SCFFF ( • ) 


0F000H 


- 


OFFFFH 


$0000 


" 


SOFFF (•> 


(*) Embora oa enderegos assinalados 
estejam fora de ordem, eles estao 
corretos. 
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; EXEMPLO DO 


USO DO ASM E DO LOAD 


9 

; MICRO 


SISTEMAS - SALGADO 


) 


ORG 


100H 




BDOS 


EGU 


5 




BOOT 


EQU 


0 




PRINT 


EGU 


9 




9 

inicio: 


LX I 


SP. STACK 


;reserva STACK 




LX I 


D, MES 


; DE aponTa para 








; MENSAGEM 




MV I 


C, PRINT 


; FUNCAO PRINT 




CALL 


5 


; EXECUTA 




JMP 


0 


;fim 


MES 


DB 


10, 13, ’MICRO SISTEMAS’ 




DB 


10, 13, ’A 


PRIMEIRA ’ 




DB 


’REVISTA 


BRAS I LE IRA’ 




DB 


10, 13, ’DE MICROCOMPU’ , 




DB 


’T ADORES’ 


,10,13,’*’ 


9 


DS 


10H 


jAREA DO STACK 


STACK 










END 







: 10010000316601 1 1 OEO 1 OE09GD0500C300000AOD7 4 
: 1001 10004D4943524F2053495354454D41530A0DC5 
: 1 00 1 20004 1 205052494D4549524 1 2052455649536C 
: 1 OO 1 3000544 1 2042524 1 53494C4549524 1 OAOD44D 1 
: 1 00 1 400045204D4943524F434F4D5055544 1 444F24 
: 060150005245530A0D2484 

: oooooooooo 



0 primeiro passo para descobrirmos como utilizar o 6502 
i verificar como cada microprocessador reconhece uma posi- 



gdo de mem6ria, jd que uma mesma posigdo tern enderegos 
diferentes para o Z80 e para o 6502. Por exemplo, o enderego 
S 300 para o 6502 6 equivalente ao enderego 0F300H para o 



Z80, isto 6, fazem referenda d mesma posigdo de memdria. 
Na figura 1 apresentamos uma tabela para a conversdo dos en- 
deregos entre Z80 e o 6502. 

Para passarmos pardmetros, tanto de ida quanto de volta, 
entre o Z80 e o 6502, podemos utilizar dois md todos: o pri- 
meiro consiste em colocarmos um dado em uma posigdo de 
memdria com um microprocessador e retirar com o outro, 
utilizando a figura 1 . 0 segundo mdtodo se baseia no uso dos 
registradores (A, X e Y) do 6502. Para isto, usaremos posigdes 
de mem6ria especiais, de acordo com a tabela abaixo: 



Z80 

0F045H 

0F046H 

0F047H 



6502 

545- *-Acumulador A 

546- *-Registrador X 

547- *-Registrador Y 



Obs.: Em alguns manuais do CP/M os registradores X e Y estdo 
com enderegos trocados. 

Para compreendermos melhor como isto funciona, vamos 
supor que uma rotina interna do Apple utilize o dado que 
estiver no Registrador X como parametro de entrada, e que re- 
tome pelo Acumulador um determinado resultado. A estrutura 
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I EXEMPLO DO USO DO ASM E DO LOAD 
I 

; MICRO SISTEMAS - SALGADO 



0100 

0005 


- BDOS 


ORG 

EOU 


100H 

5 




0000 


“ BOOT 


EQU 


0 




0009 


* PRINT 

! 

316601 inicio: 


EQU 


9 




0100 


LXI 


SP, STACK 


? RESERVA STACK 


0103 


110E01 


LX I 


D, MES 


? DE APONTA PARA 


0106 


0E09 


MV I 


C, PRINT 


; MENSAGEM 
? FUNCAO PRINT 


0108 


CD0500 


CALL 


5 


; EXECUTA 


010B 


C30000 

? 

0A0D4D4943MES 


JMP 


0 


JFIM 


OlOE 


DB 


10,13, ’MICRO SISTEMAS’ 


01 IE 


0A0D4 12050 


DB 


10, 13, ' A 


PRIMEIRA ’ 


012B 


5245564953 


DB 


'REVISTA 


BRAS I LE IRA’ 


013D 


0A0D444520 


DB 


10, 13, ' DE MICROCOMPU' 


014C 


5441444F52 


DB 


'TADORES' 


, 10, 13, 


0156 




DS 


10H 


;area do stack 


0166 


STACK 


END 
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grAficos no turbo pascal 



que deveremos montar devera ser algo do tipo: 



REGA 

REGX 

MVI 

STA 



EQU 0F045H 
EQU 0F046H 
A, DADO 
REGX 



REGA 



; Coloca o dado em A 
; Coloca A em REGX (parame- 
tro de entrada) 

; Executa a chamada do 6502 
; Pega o valor de retomo 



Agora a parte mais importante: como ativar o 6502. Para 
isto, usaremos duas outras poshes de membria especiais, que 
s3o: 

0F3DEH — ► contdm o enderefo da placa de CP/M. 
0F3D0H — ► local em que se coloca o endere?o da rotina 
escrita em Assembler no 6502. 

Ap6s o endere^o da sub -rotina ter sido colocado no local 
correto (0F3D0H), bastara utilizarmos uma instn^ao que co- 
loque algo no endere 9 o da placa. 

Para que este mecanismo fique claro, veremos dois exem- 
plos. No primeiro (listagem 4) temos um programa que dd um 
beep, utilizando uma rotina interna do Apple. Para isto, utili- 
zaremos a rotina BELL2 (JFBE4). No segundo exemplo 
(listagem 5), utilizaremos a rotina interna PRTYX (SF940) 
que tern por fu^fo imprimir o conteudo dos registradores X e 
Y. 

Bibliografia 

H„ THOM, CP/M Guia do Usudrio; 

L., JON, CP/M Assembly Language; 

L., LANCE, Z80 Assembly Language Programming; 

W., NAT, Z80 Instruction Handbook; 

J„ KATHLEN; W., NDCLAUS, Pascal User Manual and Report; 
G., PETER, Programing in Pascal; 
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EXEMPLO DO USO DO 6502 PELO ZOO 



MICRO SISTEMAS - SALGADO 



LZ80 


ORG 

EQU 


100H 

OF3DEH 




L6502 


EQU 


0F3D0H 




BELL2 


EQU 


OFBE4H 




BOOT • 

; 

INICIO: 


EQU 


OOOOOH 




LXI 


SP, STACK 


; RESERVA STACK 




LX I 


H.BELL2 


; COLOCA EM HL 0 




SHLD 


L6502 


; ENDERECO DA 
; SUBROT I NA 
i COLOCA HL NO 




LHLD 


LZ80 


! ENDERECO DADO 
5 POR L6502 
; PEGA ENDERECO 




MOV 


M, A 


» DA PLACA 
; COLOCA 0 VALOR 


; 

STACK 


JMP 


BOOT 


tDE A (NAO IMPOR 
STA 0 VALOR) E 
S EXECUTA 
S RETORNA 


DS 

END 


10H 





R. , J. S.; B., H. J., Programming via Pascal; 

S. , JEFFREY, Apple Graphics & Arcade Game Design; 

W., KEN;K., BOB;K., LISA, Apple II Computer Graphics; 

L., WILLIAN, What’s Where in the Apple; 

BORLAND INTERNATIONAL, Turbo Pascal - Reference 
Manual; 

MICROSOFT CORPORATION, Microsoft Softcard System 
for Apple II - Instalation and Operation Manual. 



PROGRAMAS PARA MSX (EXPERT E HOT- BIT) 

ciEncia moderna de computaqao ltda. 

A v. Rio Branco, 1 56 - Sub-Solo - Loja 127 — CEP 20.043 - Centro - RJ 
Tels.: (021) 262-5723 ou 240-9327 



HUNCH BACK > 



COSMOS > 

HOT SHOE > 



CANNON FXOHTER- 



CATABALAO > 



PYPAMXDE > 



BINARY LAND > 



DOO-FIOHTER > 



FAIXA PRETA --> 
NORSEMAN > 



DECATHLON > 



EDITOR ORAF ICO. COM O QUAL VOCE PODE- 
RA DESENHAR E PROJETAR O DUE O SEU 

POTENCXAL FOR CAPAZ 

TENTE ESCAPAR DO CA9TEL0 SEM SER PEOO 

PELOS OUARDAS 

DESTRUA AS NAVES ESPACXASI C08MICAS. . 
DESVIE DOS ASTEROIDES ATE ENCONTRAR O 

REATOR NUCLEAR 

SALVE SEU DEPOSX TO DE MANTX MENTOS DO A- 
TAOUE DOS TANOUES INIMIOOS . SENSAC IONAL . 
TENTE APANHAR O MAI OR NUMERO DE BALOES 
POSS I VEL . CU I DADO COM O OXIOENIO DISPO- 
NIVEL. DESTRUA OS PASSAROS INIMIOOS.. 
ACHE 0 TESOURO NO LABIRXNTO SEM SER PE- 
OO PELOS MORCEOOS ESCORPIOES E A MUM I A . 
MATE A ARANHA. DESTRUA AS TEXAS E PEOUE 

TODOS OS OBJETOS DO LABIRXNTO 

VOCE EH PILOTO DE UM CACA E ESTA EM COM- 

BATE. TENTE DESTRUIR SEUS INIMIOOS 

IOUAL AO TRADIC IONAL FLIPPER DO FLIPERA- 

MA. SENSAC IONAL 

LUTA DE KARATE 

NAO DEIXE QUE OS MONSTROS PEOUEM A BARRA 

DE OURO OUE ESTA SOB SUA PROTEC AO 

LIBERTE A PRINCESA QUE ESTA PRESA NUMA 
SALA DO LABI R INTO. EVITE SER PEGO TAMBEM. 
SEJA UM CAMPEAO. PARTICIPE DAS PROVAS 



MR. CHIN > 

MACACO 

ACADEMICO > 



HYPER SPORTS II 



LE MANS > 

CORRIDA HALUCA- 



PATRULHA LUNAR 



EDITOR DE TEXTO 



XADREZ > 

ROAD FIGHTER -> 

PASCAL > 

KEYSTONE KAPERS 

PADEIRO MALUCO- 

MALA DIRETA 

CONTROLE DE 
ESTOQUE 



MANTENHA SUA FAMA DE MAI OR EQUILXBRI8TA 

ACHE O NUMERO CORRETO PARA COMPLETAR A 
SENTENCA MATEMATICA, MAS CUIDADO COM OS 

C ARANOUE I J OS QUE LHE PERSEOUEM 

.SENSAC IONAL CONTINUACAO DO HYPER 

SPORTS X 

RESOATE OS PRISIONEIROB DE UMA ESTRANHA 

PRXSAO. MARAVILMOSO 

SENSAC IONAL JOOO ONDE SUA PERICIA DE 

PILOTO SERA TESTADA A TODO NOMENTO 

PARTICIPE DE UMA CORRIDA DE FORMULA I.. 
APANME AS BANDEIRAS PELO LABIRXNTO MAS 
CUIDADO COM O COMBUSTIVEL. SENSAC IONAL. 
-RETORNE A SUA BASE APOS UNA SAIDA DE 

RECONHEC X NENTO 

i-EM PORTUOUES . FAC A SUAS CORRESPONDENC I AS 

E AROUIVOS 

SUAS HABIL IDADES DE MUSICO SERAO TESTA- 
DAS COM ESTE PROORAMA. DIVERSOS RITMOS. . 
TRADIC IONAL JOOO DE XADREZ EM 6 NIVEIS 

SENSAC IONAL CORRIDA DE FORMULA I 

COMPILADOR PASCAI MANUAL EM CASTELHANO 

-COMO POLICIAL. EVITE QUE 0 LADRAO FUJA 

COM O D1NHEIRO ROUBADO 

> A JUDE O PADEIRO A FABRICAR SEUS PAES. . . . 
>PODEROSO BANCO DE DADOS PARA EMISSAO DE 



«**OBS. : TODOS OS PROGRAMAS ACOMPANHAO MANUAL EM PORTUOUES. 



215 COLUMBIA > VOCE ESTA INVADINDO OUTRO PLANETA EVI- ESTOQUE >CONTROLE 0 SEU ESTOQUE ATE 100 ITENS POR 

TE SER DESTRUIDO PELOS CACAS E MISSEIS ARQUIVO 

INIMIOOS. DEVERAS SENSAC I ONAL SO, 00 

216 PITFALL II ---> ACHE AS BARRAS DE OURO E EVITE OS PERI- »MOBS. : TODOS OS PROGRAMAS ACOMPANHAO MANUAL EM 

OOS EXISTENTES. MU I TO BOM SO. 00 

217 RIVER RAID > SUA MISSAO E DESTRUIR OS INIMIOOS NO 

RIO RAID 30.00 

218 HYPER SPORTS I> SEJA UM ATLETA . GANHE BONUS COM SUA 

EXIBICAO SO. 00 

Deseio receber os seauintes proaramas oelo(s) aual(is) paaarei a quantia de Cr£ 

N?s PROGRAMAS: 

NOME: 

END.: 

Cl DADE: UF.: CEP: 

Para tal estou envlando um cheque nominal a Ciencia Moderna de Computagao Ltda. Despesas de Correio inctusa. 



Listagem 5 



EXEMPLO DO USO DO 6502 PELO Z80 



MICRO SISTEMAS - SALGADO 





ORG 


1 00H 


LZ80 


EQU 


0F3DEH 


L.6502 


EQU 


0F3D0H 


HOME 


EQU 


OFC50H 


PRTYX 


EQU 


0F940H 


REGX 


EQU 


0F046H 


REGY 


EQU 


0F047H 


BOOT 


EQU 


OOOOOH 


INICIO: 


LXI 


SP, STACI 



; TA 0 VALOR) E 
5 EXECUTA 
5 

; IMPRIME OS NUMEROS. DEVERA ’ APARECER 
; 1020 NA TELA 

J 

MVI A, 01 OH 

STA REGY !Y = 10H 

MVI A, 020H 

STA REGX 5 X = 20H 

LX I H, PRTYX 
SHLD L6502 
LHL.D LZGO 



5 LI MPA A TELA USANDO 0 HOME DO APPLE 



JMP BOOT 



; RETORNA 



H, HOME 



SHLD L6502 



LHLD LZGO 



5 COLOCA EM HL 0 
; ENDERECO DA 
; SUBROT I NA 
; COLOCA HL NO 
; ENDERECO DADO 
5 POR L6502 
5 PEGA ENDERECO 
5 DA PLACA 
I COLOCA O VALOR 
> DE A (NAO IMPOR- 



DS 1 OH 



STACK 



Antonio C. Salgado Guimaraes 6 formado em Engenharia Meca'nica pala 
Univorsidade Santa Ursula, no Rio de Janeiro, e trabalha, atualmente, 
como Programador no LNCC/CNPq, onde presta apoio tdcnico ao Pro- 
jeto de Desenvoivimento de Software em Engenharia MecSnica para 
Mini e Microcomputadores. 



COMUNICACAO ENTRE MICROS PARA 
TRANSFERENCE DE ARQUIVOS 



O TRANSFERE 6 a solu 9 ao para o seu problcma 
de ter vdrios micros com formatos de disquete 
incompatfveis. 

Com o TRANSFERE voce pode transferir arquivos 
cntre micros atravds de uma liga 9 ao por cabo 
usando as interfaces seriais. 

Na tabela ao lado voce encontra as caracteristicas 
mais importantes do TRANSFERE. Compare-o 
com os concorrentes. 

PREgOS POR MICRO: 

Cz$ 2.000,00 — Compativeis com APPLE CP/M 
Cz$ 3.000,00 — Outros micros CP/M 
Cz$ 4.000,00 — Compativeis com IBM PC 

Os sistemas da INTELSOFT sao operados atraves 
de menus e acompanhados por manuals que 
descrevem detalhadamente a sua utiliza 9 ao. 
Qualquer pessoa pode opera-los mesmo que nao 
tenha nenhum conhecimento de computa 9 ao. 

INTELSOFT 



CARACTERISTICAS: 

Permite a transference de arquivos entre 
micros CP/M e micros compativeis com o 
IBM PC com MS-DOS. 

Faz a transmissSo usando um protocolo de 
verificagao com corregSo autom&t ica de 
erros. 

Transmite qualquer tipo de arquivo, como 
programas, textos ou dados. 

Permite transmitir vdrios arquivos com um 
iinico comando, usando a convengSo de ? e 
• para especificar o grupo. 

A operac£o 6 feita em apenas um dos 
micros, o outro responde automaticamente. 

Pode acessar qualquer unidade de disco 
conectada ao micro, inclusive discos rfgidos 
tipo winchester. 

Permite emular um terminal com protocolo 
tipo TTY, para conexdo com minis e 
services de informagSo. 

Trabalha com velocidade de transmissao 
de ate 9600 bauds. 

Mais de duzentas cdpias instaladas. Princi- 
pal clientes: PETROBRAS, INTERBRAS, 
SHELL, MINISTERS DA FAZENDA, DHL 
CIA DOCAS DO CEARA, ELETROSUL. 



OUTROS PRODUTOS: 

DISQUE BOLSA 

Permite ligagSo com a BVRJ para 
obter cotagoes e dados histdricos de 
agdes. Os dados oSo armazenados em 
disco para consultas e emissSo de 
relat6rios, podendo tambdm sertrans- 
feridos para uso por outros pecotes. 

PREQO: Cz$ 10.000,00 



CONTABILIDADE GERAL 
Funciona em modo on-line e suporta 
ate 65.000 contas ou langamentos 
por m6s. O Plano de contas 6 defini- 
do pelo usudrio e os dados podem ser 
manipulados por pacotes como o 
LOTUS e odBASE, 

PREgO: Cz$ 15.000,00 

Escreva ou telefone 
para receber folhetos 
com informagoes 
detalhadas sobre 
nossos produtos. 

(021) 265-3346 



INI ELSOFT Projeto e Desenvoivimento de Sistemas S/C Ltda. 
Praia do Flamenqo 66 Sala 1 104 CEP 22210 - Rio de Janeiro - RJ 



EMPRESA FILIADA A ASSESPRO 






SWENSSON, Q.; GOMES, J. P.; 
Lotus 1-2-3, Livros Tdcnicos e 
Cientificos Editora. 

O livro 6 dividido em tres 
blocos principais. No primeiro de- 
les, o autor apresenta uma visao 
bisica do Lotus 1-2-3, abordando 
seus comandos mais usados. A se- 
guir, na parte 2, ele enfoca outros 
comandos do menu principal 
(/Worksheet; /Range; /Copy; /File; 
/Print; /Graph), o que torna pos- 
sivel o desenvolvimento de varios 
tipos de aplicagao. 

Finalmente, sSo apresentados 
recursos adicionais do 1-2-3, co- 
mo impressaode grificos (PRINT- 
GRAPH); DATA </0) e Macros. 

WATANABE, R. M„ Guia do 
Programador D.O.S., Editora 
Aleph. 

O Guia do Programador DOS 
destina-se a usuirios ji familiari- 
zados com, pelo menos, as opera- 
goes usuais do DOS e Assembler 
do microprocessador 6502. 6 re- 
comenddvel tambdm o estudo prd- 
vio do BASIC Applesoft e Assem- 
bly 6502. 

SSo abordadas questdes do ti- 
po como aumentar a capacidade 



de armazenamento; como melho- 
rar o tempo de acesso; as formas 
de proteger os dados contra c6- 
pias; como recuperar arquivos 
perdidos acidentalmente etc. 

HOFFMAN. P„ MSX - Guia 
do Usuirio, Editora 
MacGraw-Hill. 

Mais que um guia, este livro 6 
um complemento aos manuais 
desta linha de computadores que 
nao pode faltar na estante dos 
usudrios. Em linguagem simples e 
eficaz, o autor consegue explicar 
desde as caracterfsticas bdsicas da 
mdquina aid suas mais complica- 
das fungdes, sempre com exem- 
plos priticos e tabelas esclarece- 
doras. O livro contim inclusive 
dicas que nSo estao nos manuais, 
tais como enderegos de acesso i 
algumas rotinas da ROM do equi- 
pamento e enderegos importantes 
que controlam o BASIC MSX. 

CHRISTMANN, R. U., 
Visitrend/Visiplot - Guia do 
Usuirio Brasileiro, Editora 
Campus. 

Parte integrante da sdrie "Guia 
do Usuirio Brasileiro", este 6 um 



manual pritico de utilizagao do 
Visitrend/Visiplot. Nele o autor 
fornece os conhecimentos neces- 
sarios para o uso destes pacotes; 
aborda suas possibilidades de apli- 
cagao; entrada de dados e os di- 
versos tipos de grificos. 

Estes sao alguns dos assuntos 
contidos nos capftulos: Menu do 
Visilot; Como entrar com dados; 
Grificos de linha, barras, confron- 
te. circulares, mmimos e mixi- 
mos; e Cilculos estatfsticos. Hi 
ainda um capftulo "Desafio", pa- 
ra que o leitor possa testar o que 
aprendeu. 



ENDERECOS DAS EDITORAS 



. Aleph Editora — Av. 
Brigadeiro Faria Lima, 1451, 
Conj. 31. CEP 01451, tel.: (011) 
813-4555; 

. Editora Campus — Rua Barao 
de Itapagipe, 55, CEP 20261, 
tel.: (021) 284-8443, 

. Livros Ticnicos e Cientificos 
Editora — Rua Vieira Bueno, 21, 
Sao Cristbvao, CEP 20920; 

. Editora McGraw-Hill — Rua 
Tabapua. 1105, CEP 04533. 
tel.: (011) 280-6622, Itaim Bibi, 
Sao Paulo. 



• A partir deste numero. MS 
passari a publicar uma relagao de 
todos os livros recebidos em sua 
redagao durante o mils. 

• Aleph Editora — Aprofundai 
do-se no MSX. 

• Editora Campus — Contabili 
dade Sistimica em Microcomputa- 
dores; Visicalc — Guia do Usudrio 
Brasileiro; Como Programar seu 
PC; LOGO - Introdugao ao poder 
do ensino atravis da programagSo; 
Informitica, uma introdugSo. 

• Livros Tdcnicos e Cientificos 
Editora — Cartao de Referenda 
dBase II; Cartao de Referenda 
dBase III. 

• Editora McGraw-Hill —Assem- 
bler para o TK90X; MUMPS — 
Guia do Usuirio; MS — DOS — 
Guia do Operador, Comandos Bd- 
sicos; dBase III — Guia do Opera- 
dor, Comandos Baiicos; dBase II 
- Guia do Operador, Comandos 
Bdsicos 

• Petit Editora - Construe seu 
computador por meio saldrio mf- 
nimo. 

• SCI Editora — Conceitos, pro- 
blemas e prdtica de gerdncia para 
profissionais de informdtica: dire- 
trizes e normas. 
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ADRESS pdg. 27 

ALFAMCIRO pdg. 61 

BEL BAZAR p4g. 61 

BRASIL TRADE CENTER pdg. 49 

CEDUSOFT pdg. 12 

CENTRALDATA pdg. 13 

ClENCIA MODERNA pdg. 64 

COMPUCLUB pdg. 61 

DATAROAD pdg 61 

DIGITUS Pdg 21 



FILCRES pdg 17 

GUARDIAN pdg. 43 

INFORUSO pdg- 30 

INFOSHOPPING p4g. 16 

INTELSOFT pSg. 65 

J. V.A. MICROCOMPUTADORES pdg. 55 

K. M.P. pdg. 40 

KRISTIAN ELETR0NICA pdg. 19 

LASERBIT pdg. 61 

LITEC pdg 53 

LIVRARIA SISTEMAS pdg. 66 

MAGIC WOLRD pdg 61 

MEDIDATA pdg. 5 

MICROCENTER pSg. 61 

MICRODIGITAL 4? capa 

MICRO EQUIPAMENTOS pig. 42 

MICROMAQ pig. 37 

NCR DO BRASIL pig. 39 

NASAJON pig. 7 

NASAJON pig. 54 

OCCIDENTAL SCHOOLS pig. 29 

PAPELARIA OUVIDOR pig. 61 

PEEK POKE pig. 28 

PRA CPD pig. 27 

PROCEDA pigs. 34-A a F 

SB DADOS pig. 26 

SENAC pig. 33 

STOP ICARAi pig. 9 

SUPORTE pig. 57 

TEKBOX pig. 48 

TROPIC 2‘ capa 

TROPIC 3? capa 




Programas para 

TK 90X que falam nossa lingua. 

Finalmente, uma empresa nacional assumiu uma Sao jogos animados.inteligentes, programas com 
atitudebrasileira: editar programas e jogos para TK 90 X aplicagoes profissionais, educacionais, 

em portugufis. A Disprosoftestdlangando comerciaiseutilit^rios. Procure o seu programa, 
programas inftditos no Brasil. nas melhores lojas. 









H Micron vital lam o IK Mile 
e lira as 8 am He alrasa to mm brasileiro. 




TK3000 




Chega ao Brasil o sucessor do Apple lie' "Enhanced". 



Tire da cabepa tudo quo voce /a love. tom on mi em materia de 
micros em geral e Apples orn particular. 

£ a prtmeira vet quo chega ao Hrasrl um Apple ultimo modeto 
o TK 3000 lie 6 uma vorsao ainda mats rnnpada do 
avanpadissimo Apple lie “Enhanced", tancado em maio de 138b 
nos Estados Umdos. 

E o umco que roda Totalworks e Supercalc 3a. entre milhares de 
outros. Far em segundos o que os demais micros levam 
interrmndvets minutos para lam ; tern momdna bdsica de TiA 
Kbytes lexpandivd com plocas at6 I Megabyte! e tedodo 
numdrico incorporado 

Escreve em portugtws com todas as letras e acentos e com 
mmor taciUdade do que uma mdquma de escrever eletrdmca. 



E, entre outras exdusrvtdados, tern um design anatbmico. para 
maior contort o do operadot e produtrvtdade no trabalho. 

Venha logo conhecer e resenmr o seu TK 3000 He nos 
Revendedores Autorimlos Microdigital. 

Os 8 anos tecnologia que o separam dos outros micros, podem 
ser exa laments a distancia que vocd var colocar entre sua 
empresa c os concorrentes. 

mom* 

/MICRODIGIML 







